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Coding and checkout of Trans-Use is progressing quite satisfactorily. 
Trans-Use is a routine which will translate programs written in USE language 
into 1103A machine language in a format ready for execution or assembly. The 
USE-Compiler will be a much more powerful instrument capable of doing a 
variety of functions. For most problems, especially fixed point programs, 
Trans-Use will be a useful instrument even when the Compiler is available. 
Trans-Use is being prepared by Holloman Air Development Center. 

A minimum Service Routine Library for the 1103A is about 75% com- 
plete here at St. Paul. This minimum library will include paper tape input- 
output routines and several diagnostic routines for program debugging purposes. 

On page 1 of the SNAP Sampler (RW-140) write-up, the last sentence 
of paragraph b should be replaced by: "Restoring the library from magnetic 
tape loads an all zero word into cell 717775. If this word is not changed 
a complete trace of all SNAP commands is automatically performed.** 

Future contributions and communications to the Central Exchange 
should be addressed to Leo Kennedy, Systems Analysis Department, who has 
assumed the duties of Central Exchange editor. 



v-' Leo Kennedy 

a- Systems Analysis Department 
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CON V AIR An 1103 program for computing Eigenvalues and Eigen- 

vectors of Real, Symetric Matrices has been completed. This program 
is designed to determine all vectors Y. and all scalars ^ . which 
together with a given real, symetric matrix A of order N <£ 64 satisfy 
the relationship AYj = A ^Y.. The mathematical technique employed 
is based on the Hestenes - &arush gradient methods* The program is 
made to take advantage of a matrix with large numbers of zero ele- 
ments by representing it in dehydrated form, i.e., with blocks of 
zero elements replaced by flags indicating the number of zeros re- 
moved. 



RAMO-WOOLPRIDGE A table of contents for the Ramo-Wooldridge Utility 
Library for the 1103 is enclosed in this Newsletter. In connection 
with this, the following communication was recieved from Ramo- 
Wooldridge: "We now have our library available on a self loading 
deck of binary cards. We would be glad to supply a copy of this 
deck to anyone, together with complete instructions for loading 
the deck in the 1103 and a list of locations occupied by each 
routine. With this information the various output routines which 
are part of the library could be used to obtain octal or binary 
cards or bioctal paper tape for any or all routines.** 



LOCKHEED As a first step in the direction of exchanging in- 

formation about the organization of individual computing centers, 
W. W. Leutert, Head of Mathematical and Computer Service Department 
(Dept. 66-10) Lockheed Missile Systems Division has submitted an 
organizational description of his department for Central Exchange 
•h distribution. It is hoped that this first step will stimulate 
^ the flow of such worthwhile information among the various computer 

a- installations, 
i 

o 

o 

*~ WRIGHT FIELD A decimal output routine for the ERA Line Printer 

x has been completed. Decimal digits must be presented to the routine 

°* in coded form and the speed of the output is limited only by the 

Line printer itself (150 lines per minute, 92 characters, per line). 
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REMINGTON RAND UN I VAC Enclosed in this Newsletter is a report on 

"A Linear Programming Routine for the 1103 Computer" which is being 
developed at St. Paul. 

A preliminary report on "A Multiple Correlation and 
Regression Program for the 1103*' is enclosed. This program has 
been used successfully at St. Paul on several customer production 
problems. 

Also included is a description of the Utility Routine 
Library for the Serial 9 1103 at St. Paul. This library (RR-126) 
consists of three main parts: (1) Service Routine Library; (2) 
Regional Coding Routine; (3) Library Routine. 

A few inquiries have been directed to us concerning 
the action of the LEFT TRANSMIT instruction (LTjkv) of the 1103A 
(1) when 7£j£2, and (2) when k>177. The quantity "j" in this in- 
struction at present consists effectively of the one bit, u-« f in- 
stead of the usual three bits, uj^, u,g, u . Hence for j = 2, 4, 
or 6, effectively j « 0; and for j = 3, 5, or 7 effectively j - 1« 
No anomalies arise when k?177 as is the case for the Split Instructions 
and Left Shift Instructions in A and Q. 

We would like to take this opportunity to review 
some of the actions of the 1103A "interrupt" signal during a re- 
peated operation. Since the Repeat Sequence by-passes Main Pulse 
6 and 7, the "interrupt" will not take effect until the Repeat 
Sequence is terminated. For Normal Termination, the "interrupt" 
will take effect on MP6 of the execution of the jump instruction 
stored at F . When a jump condition is met during a repeated 
Threshold or Equality Jump, the "interrupt" will take effect on 
MP6 of the Jump Termination Sequence. Hence, for both the Normal 
and Jump termination of the Repeat Sequence, the "interrupt" does 
not become effective until PAK contains the address of the next 
instruction in the otherwise un-interrupted program. 
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Title: 
Format: 



Normal Deviate Routine 
Standard Form 



Storage: a) Total: 01000 - 01030, 31 octal 

b) Instructions: 01000 - 01016, 17 octal 

c) Constants: 01017 - 01024, 6 

d) Temporary Storage: 01025 - 01030, 4 



Alarm Conditions: 

Alarm %hen 



Timing: 

Exit Condition: 

Range: 



(01030) ^ 0. This location must be 
supplied a randomly selected positive 
number before the routine is ^entered 
the first time. 

12 milliseconds per deviate 

(A) ■ deviate scaled 2^ 2 

deviate will be in range ± 6 



Coded and Machine Checked By: F R, Urbanus 
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Description: 

The routine provides a means for drawing "at random" from an 
approximately normal distribution having a zero mean and a variance 
of 1. 

The routine is based on a consequence of the Central Limit Theorem 
of Mathematical Statistics, which states that a distribution of sums of 
uniformly distributed random variables approaches the normal distribu- 
tion as the number of variables summed is increased. In this routine 
twelve random variables, each from the same uniform distribution and 

or 

in the range to 2*^~\ $ are summed and then normalized (i.e., reduced 
by the theoretical mean of the distribution and divided by the square 
root of the theoretical variance of the distribution)* The resulting 
normalized deviates are thus distributed approximately normally with 
mean 0; variance 1, 

The accuracy of the approximation has been measured by collecting 
5 samples of 1000 deviates each and checking the distributions by 
statistically testing the hypothesis that the distributions formed 
J by the deviates are not significantly different from the normal distri- 
bution* For the results of these tests, see* the section titled 
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o- "Accuracy of Approximation", 
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If S ± - Pi x (mod 2 24 -l) + ? ± 2 (mod 2 24 -l) ♦ ...+P ± 12 (mod a 24 -!), 
where the P's are "pseudo-random" numbers in the range 1 to 2-^-32, 



then the mean of S is 



S- 12(0+2^-1) -g^ 24 -!) 
2 



and the variance of the sum is 



G"(sum) -12 <3" (uniform distribution) 



G (sum) 



12 




i 2 - 2^ S 



,24 



<f X (sum) - (2^-1) (2^+1) 



The normalized sum, or deviate, is then 



S-S - S-6 (2 24 -l) ^_ 

Since 1 S £ 12 (2 24 -l) 
-6 £ S« £ 6 



2^4 
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Each deviate, then, can be no larger in absolute value than 6 # 
Almost all (99»7^)* however, can be expected to fall within the range 
± 3.00 



♦ The secondary modulus, 2 24 -l> was chosen arbitrarily to provide a wide 
range for the sums, and a fine gradation for the deviates. Furthermore, 
it was desired to have the secondary modulus equal to 2 n -l, in order to 
reduce the number of divisions required in the routine. 
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Accuracy of Approximation: 

The following frequency distributions were compiled by the 1103* 
Each contains 1000 deviates. The mean, variance, measure of skewness, 
and measure of kurtosis for each distribution were tested statistically 
and found not to differ from the measures of the normal distribution 
(0, l) by a significant amount. 



Deviates 



-3.86 
-3.47 
-3.09 
-2.70 
-2.31 
-1.93 
-1.54 
-1.16 
-0.77 
-0.39 


0*39 
0.77 
1.16 

1.54 
1.93 
2.31 
2.70 
3.09 
3.47 

Mean 



to -3.47 
to -3.09 
to -2.70 
to -2.31 
to -1.93 
to -1.54 
to -1.16 
to -0.77 
to -0.39 
to 
0.39 



to 
to 
to 
to 
to 
to 
to 
to 
to 
to 



0.77 
1.16 

1.54 
1.93 
2.31 
2.70 
3.09 
3.47 
3.86 



y* (skewness) 
V (kurtosis) 



(1) 


1 
2 
5 

18 
44 
61 
103 
130 
155 
151 

82 

56 

29 

11 

9 

6 





-.046 

1.00 

0.088 

3.07 



(2) 





6 

10 

25 

31 

65 

104 

112 

141 

147 

147 

90 

64 

28 

21 

6 

3 



-.031 
1.10 
0.090 
3.00 



(3) (4) 





2 

4 

13 

12 

30 

61 

83 

139 

135 

I64 

128 

101 

66 

38 

15 

7 

1 

1 



+.012 

1.03 

0.138 

3.18 



1 

2 



13 

9 

36 

67 

99 

144 

163 

152 

115 

85 

56 

36 

15 

7 







-.060 

0.98 

0.023 

3.08 



(5) 





4 

3 

15 

37 

70 

101 

133 

145 

148 

109 

101 

74 
36 
15 
5 
U 



-.008 

1.02 

0.052 

2.78 



Total 



5 
16 

44 
79 
178 
324 
490 
658 

739 

762 

636 

459 

316 

167 

77 

34 

14 

1 



-.024 
1.02 
0.076 
2.90 
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Because it appeared that the mean of the distribution might have 
some negative bias, a further test was made in which 200 samples, each 
representing the mean of 500 deviates, were compiled by the 1103* The 
mean of these means was +.0023, indicating that there is evidently no 
reason to suspect a biased mean« 





Storage 
Address 


Order 




01000 


37 76000 76002 




01001 


45 00000 30000 




01002 


11 01Q17 01025 




01003 


13 01020 01026 




01004 


11 01030 20000 




01005 


42 01024 01000 




01006 


71 01030 01021 




01007 


73 01022 10000 




01010 


11 20000 01030 




01011 


11 01023 10000 




01012 


51 01030 01027 




01013 


21 01026 01027 


CM 

i-H 
i 


01014 


41 01025 01006 


30-9- 


01015 


54 01026 00010 


i-H 


01016 


45 00000 01001 


X 

c- 


01017 


00 00000 00013 



Function of Order 

Alarm exit 

Normal exit 

Set up index 

(-S) — > (01026) 
Random Number — > (A) 
Alarm , (01030) -0 

RN-5 13 -4(A) 

R.N.5 13 (*od 2 35 -31)-*(A) 

Store new R.N. 

Mask — > (Q) 

R.N. (mod 2 22 Ul)-# 01027) 

(S-S) ^(01026) 

Through 12 times? 

(S-S>2 8 «S»'2 32 -#A) 

To Normal Exit 

Index 



9-5 



CM 



I 

O 

l 

o 
o 
o 



X 

QU 



OR-124 



Page 6 of Q 



01020 


00 05777 77772 


01021 


01 10604 71625 


01022 


37 77777 777U 


01023 


00 00777 77777 


01024 


00 00000 00001 


01025 


too 00000 ooooo] 


01026 


[oo ooooo ooooo] 


01027 


[oo ooooo ooooo] 


01030 


\oo ooooo ooooo] 



5 13 
2 35 -31 
2 24 -l 
1 

Store index 
Store Sum 
Temporary Storage 
Current R#N. 
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Identification Tag: 

Type: 

Storage : 



Program Entrance? 
Program Exit: 
Alarm Exit: 
Machine Time: 



Mode of Operation: 

Coded "by: 
Code Checked by: 
Machine Checked by: 
Approved by: 



THE RAMO-ItfOOLDRIDGE CORPORATION 
Los Angeles hS 9 California 

Linear Matrix Equation Solver (AX - B) 

Spe cif ications 

MTI-0 

Subroutine available on cards for assembly 

217 instructions, addresses 

10M00 (00M00) thru 10K51 (GM£l) 

11K00 (01M00) thru 11K37 (01M37) 

12K00 (02M00) thru 12M63 (021463) 

13M00 (03M00) thru 13M62 (03M62) 

12 constants in program, addresses 
C1N00 (00N00) thru Q.N11 (CONll) 

Temporary storage used, but not stored 
in program (See Text). 

229 words total program storage. 

The constant pool and temporary storage 
pool are used by this routine. 

Address 10M02 

Address 10K01 

The alarm exit is used by this routine. 

For all storage in ES time is 
approximately (in milliseconds): 
•3 n^ + »9n 2 m + 1.7n 2 + Om 2 + 2.5nm 
+ 1.8n + 1.6m + 2.7 

For temporary storage (see text) on drum 
add approximately (in milliseconds): 

.Ok [n3 + Ipi 2 m + 3n 2 + lQmn] + 5l 
Fixed point 



W. L. Frank 
W. L. Frank 
VJ, L. Frank 
W. F. Bauer 



October 25, 1955 
November 15, 1955 
November 17, 1955 
November 30, 1955 
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Description 

This subroutine solves the linear matrix equation AX=B, -where A is a non- 
singular matrix of size nxn and B has the dimensions nxm. The solution, 
X^A'-^-B, is a matrix of size nxm. For the special case, when B is the identity- 
matrix (i), one obtains the inverse of the matrix A, Otherwise, one can solve 
m sets of n simultaneous linear equations in n unknowns. 
Considerable flexibility is afforded the programmer with respect to the 
storage of the matrices A, B and the answer X. The programmer must code two 
auxiliary routines as follows: 

(a) The first must provide successive rows of the augmented 
matrix [A, BJ . (VJhen B-I, one only need supply rows of A). 
Each row, consisting of (n+m) elements (or n elements when 
B»l), must be set up in the fixed location immediately following 
the subroutine. This data must be. scaled at 2-^5 and be such,, 
that for all elements aj* of I A,B| 

la^ -2 3 ^ | * 2 3 ^ 
In the general case,, for BfcE, the rows of [A,b] may be scaled 
independently. However, in the case of inverting a matrix, 
it is necessary that the entire matrix be scaled by the same 
factor. 

(b) The second auxiliary must take the successive columns of X, 

m 

£h found in the n cells immediately following the routine, and 

i 
*T either store them internally or punch them out. Since the 

2< columns of X are independently calculated, each has an associated 

x scale factor (scaled at 2°). This parameter positions the binary 

a, 

point, (assuming the input v. £ trices are scaled at 2-^5) and is to 
be found in the (n+l)st cell following the routine. If one has 
inverted a matrix, and if the input rows were originally scaled by 
10P (or 2P)* then the output columns must be re-scaled by 10P (or 2P). 

9-e 
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These auxiliary routines are automatically entered n and m 
times respectively by RJ instructions. The subroutine sets 
up these two RJ instructions from information gleaned from 
the parameters of the entry. This procedure allows storage 
of A 5 B and X on ES, M), magnetic tape or externally on cards 
or tape. It is also possible to generate the^ elements of 
successive rows when a functional relation exists. 
In addition to the 229 words of storage needed by the sub- 
routine, it is necessary to provide 2(n+m) cells temporary 

immediately following the subroutine, and a block of 
n(n+l) * nm cells, either all on ES or all on KD. 

Operating Instructions 

1. Entrance to the subroutine is made by the following orders (B#l): 
p RJ 00M01 0QM02 

p+i oo ooxoo ooroi 

P+2 — uuuuu vvvvv 

p+3 — . •.«. xxxxx 

where 0GM00 is the location of the first word of- the subroutine 

00X00 is the location of the first word of the first auxiliary 
00101 is the location of the second word of the second auxiliary 
«3 uuuuu * n (number of columns of B) 

CM 
i— • 

£ wvw * n (number of rows of A) 

i 

© xxxxx B is the location of the first cell of the block of n(n+l) + nm 



2 

cells all in ES or all in KD. 

—»—»■■— 

2. For the case when B»I, the p + 1 word must be 1;0 00X00 00101 
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3# The auxiliary routines must be available and coded so that they can be 
entered with 

RJ 00X00 00201 
and RJ 00Y00 00101 respectively. 
This implies that the first and second words of both auxiliaries are 
exit and entrances respectively. 

Alarm Conditions 

Two alarm conditions can result: 

1. A test is made to see that all elements, a. . of the input rows are 

within the limits 

la. .-2 3 ^ U 2^ 
J 3-0 l 

If this is violated the alarm routine ALR-1 is entered and 
alarm -xxxxx is printed where xxxxx-3 is the address of the ceH 
from which the subroutine was entered. 

2. If a singular matrix is detected in the process of inversion, 
the alarm routine ALR-1 is entered and singul-wwwww is printed 
where wwwww-3 is the address of the cell from which the subroutine 
was entered. The routine can not, however, detect all singularities 
due to round-off errors (see below). 

Starting again at xxxxx+1 will cause the rest of the main program 
to be obeyed. 



CM 



i Machine Time 

a* ■ — ■-• 
i 

8 The machine time is as indicated on the first page when all operations are 

o^ 

r-i 

carried on in ES. This time is exclusive of the times taken by the auxiliaries. 
x 

In case the block of n(n+l) + nm words are stored on KD, the time must be 

2 

increased by the terms indicated. 

These times are approximate and will be a minimum in most cases. 9-10 
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Sample computation times for matrices of order 27 and 99 were respectively 
53 seconds and 30 minutes. 

Mathematical Method (Gauss elimination method) 

Elementary row operations are performed on the matrix A reducing it to an upper 
triangular matrix A. At the same time, these operations are performed on the 
matrix B giving a new matrix B. A partial floating point arithmetic is 
maintained, in that the rows of the augmented matrix I A,BJ are always kept 
within the limits such that the largest element of the row (in absolute value) 
lies in the interval 

2& > L .2351 > 2^ 

In addition, before eliminating, leading elements of two rows are compared and 

the element of largest magnitude becomes the pivotal point. 

Next, successive columns of B are taken and the equation AX-B is solved by 

the back substitution procedure. 

Singularities in A are detected if a zero appears on the diagonal of A. Since 

round-off errors can prevent this from occurring, one must inspect the size 

of the scale factor if A is suspected of being singular. Ill conditioned 

matrices will cause the scale factors to be very small. That is, ttie elements 

of X will be very large. 

Accuracy 

C The accuracy in the result is a function of the condition of the matrix A. 

o 

o Seven to eight decimal place accuracy was obtained for matrices of order 10 

£ to 16. A matrix of order 39 and 99 yielded 7 and 6 place accuracy respectively. 

x 

cu 
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D 




10U00 


00100 







11M00 


00152 







12M00 


00190 







13M00 


00254 







OOMOO 


00100 







01M00 


00152 


D 




021*00 


00190 







031*00 


00254 







C1N00 


00317 







CO NOO 


00317 


10M00 


37 


75701 


7 5702 


10M01 


M J 


00000 





1OM02 


54 


00 M01 


20017 


10MO 3 


TU 


AOOOO 


00M11 


10M04 


TU 


A 000 


011*09 


10MO 5 


A T 


00015 


AOOOO 


1OM06 


TU 


AOOOO 


00M21 


10M07 


A T 


00015 


AOOOO 


10M08 


TU 


AOOOO 


001*19 


10M09 


TU 


AOOOO 


011*02 


10M1 


TU 


AOOOO 


01M0 3 


10M11 


TP 


00000 


A 0000 


10M1 2 


TU 


AOOOO 


011*06 


10M1 3 


TV 


AOOOO 


031*48 


10M1 4 


A T 


00015 


AOOOO 


10M15 


SS 


00016 


00015 


10U1 6 


TU 


AOOOO 


03M48 


10M17 


LA 


AOOOO 


00042 


10M18 


TV 


AOOOO 


011*06 


10M19 


TV 


00000 


02M50 


10M20 


TN 


00016 


C0N10 


10M21 


TP 


00 000 


AOOOO 


10M22 


TV 


AOOQO 


C0NQ6 


10M23 


TU 


AOOOO 


C0N08 


10M24 


A T 


02M10 


AOOOO 


10M25 


TV 


AOOOO 


01M1 3 


10M26 


TV 


AOOOO 


01M14 


10M27 


TV 


AOOOO 


03M02 


10M26 


54 


C0N08 


20071 


10M29 


A T 


CO N06 


AOOOO 


10M30 


TV 


AOOOO 


C0N07 


10M31 


A T 


02M10 


AOOOO 


10M32 


TV 


AOOOO 


C0N01 


10M33 


TV 


AOOOO 


02M01 


10M34 


LA 


AOOOO 


00015 


10M 3 5 


TU 


AOOOO 


02M06 


10M36 


TU 


AOOOO 


2M50 


10M37 


TU 


AOOOO 


02M11 


10M38 


TU 


AOOOO 


02M17 


10M39 


TP 


CO N01 


AOOOO 


101*40 


A T 


CON06 


A 0000 


10M41 


TV 


AOOOO 


03M16 


10M42 


TP 


00021 


00000 


10M43 


QS 


CO N08 


01M12 


10M44 


TP 


CO N10 


AOOOO 


10M45 


A T 
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STUDY OF MATRIX INVERSION ON THE ERA-1103 EMPLOYING ROUTINE MTI-0 

by 
Werner L, Frank and Phyllis Van Liew 



Investigations have been carried on in the inversion of matrices 
of large order and/or matrices which are badly conditioned. The purpose 
of this has been twofold: 

(1) To measure the sensitivity of the routine MTI-0 to ill 
conditioned matrices; 

(2) To obtain some experimental experience relating to the 
effect of round -off for large order matrices. 

(We define the condition number as the ratio of the absolute 
value of the largest eigenvalue to the smallest). 

It is hoped that some conclusions will result which will answer 
the following questions: 

(1) What is the relationship between condition number and 
resulting accuracy in the inverse? 

(2) for moderately veil conditioned matrices what order can 
be safely inverted and what accuracy can be expected? 

The main problems considered in these investigations were the 
following matrices: 

(a) Finite segment of a Hilbert Matrix (H ) where H 



n' ij i+j-l 



m and its inverse T . 

<m n 

1— i 

V (b) Matrix associated with the solution of y" ■ - y (C ) 

1 

o 
o 
o 



where 


c u 


m 


2 








c xi 


m 


-1 


if 


M 




c tJ 


m 


all others 



» 1 



(c) A singular matrix (A) of order 8 studied in a paper "The 
Separation of Close Eigenvalues of a Real Symmetric Matrix" 
by Rosser, Lanczos, Hestenes and Karush. 



q_ic; 
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Matrix (a) has the property of being extremely ill-conditioned for n as 

low as k. The second matrix (b) enjoys a more moderate condition -- even though 

2 
it is a function of the square of its order (^ k n ). In addition the inverses 

2 

of both matrices are well known, the elements being given by closed algebraic 



forms. 



More specifically, a comparison of the condition of H and C can be 



obtained from the following table (values are approximate): 

n C H 

n n 

2 3 16 

k 10 15,51^ 

10 kO 0(10 12 ) 

39 638 ? 

Finally the matrix (c) is singular and its eigenvalues are known. The 
modified matrix 10 ' A + 10 "°I was studied for n - 1, 2,.., , 10. This matrix 
has condition as given by 

IX max + 10" 11 .1 + 10" a ltf 1 " 1 + 1 - id 1 ' 1 



10"" 11 10" 11 

The accuracy was checked by calculating the product of the input matrix 
and its computed Inverse and comparing this quantity to the identity matrix. 
Tables 1 and 2 contain data associated with the matrices described above. 
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Matrix 



T - 1 
?, 


.10 2 


T" 1 
3 


,10 3 


\ X 


.io5 


T' 1 
5 


.10 6 


T - 1 
T 6 


.10 7 


T - 1 
7 


.10* 


V 1 


.10 10 


H -i 

H 2 


.10 


H -1 
3 


.10 


H - 1 


.10 


H^ 


.10 


H - 1 


.10 


H - 1 

H 7 


.10 


Hg 


.10 



'15 



<— \ 
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TABLE 1 
Summary of E3q>eriences on Hilbert Matrices and C 



Time (seconds) 
With Tape Output 

1.90 
3.65 
6.20 

9.25 
13.10 
17.50 
22.7 

1.90 

3.70 

6.20 

9.25 
13.05 
17.^5 
22.6 



Places 



268 

ku 

60 minutes 
(estimated) 



Time (seconds) 
No Tape Output 


of Accuracy 
(Rounded) 


Condition 


.15 


8 


16 


.20 


7 




M 


5 


15,511* 


.70 


3 




1.00 


3 




1.1*5 


1 




2.1 







.15 


8 


16 


.20 


7 




.1*0 


5 


15,511* 


.60 


1* 




1.00 


2 




1.1*0 


1 




1.9 









9 


1* 




8 


90 


53 


7 


292 




6 


639 


30 minutes 


5 


1*000 
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TABLE 2 
The Matrix 10 A + 10 ""i - A* 



Places of Accuracy In Identity Matrix 

(Bounded) Condition 

10" 4 A °° 

*10 ° ^ 

*9 1 10 8 

% 2 10 T 

*7 3 10 6 

Ag k 10 5 

^ 5 10* 

A^ 6 10 3 

A3 7 10 2 

4 8 io 

A^ 9 1 
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UTILITY ROUTINE LIBRARY (MT0) 
FOR 
1103 SERIAL 9 COMPUTER 

The Utility Routine Library will normally be stored on MT0. The Library 
consists of the following: 

(1) Utility Routine Loader-0 (URL-0) 

This routine loads the Non-diagnostic Machine Test and transfers 
control to the test. An MT START automatically transfers control 
to URL-0; if (Ar) is set #), the machine test is by-passed and con- 
trol is transferred to URL-1. The routine occupies blocks 1, 2 on 
MT0. 

(2) Non-Diagnostic Machine Test (Go-No-Go Test) 

This routine performs nine tests each of machine commands and HSS, 
and four tests of the drum. A carriage return precedes the start 
of each part and a o is typed after each successful test. A command 
test failure is denoted by a printed c, a HSS test failure by a printed 
e t and a drum test failure by a printed d. After each failure the 
routine tries the same test over again with the same operands and 
continues to do so until it obtains a successful test. Upon completion, 
the routine transfers control to URL-1. The routine occupies blocks 
3-32 on MT0. 

(3) Utility Routine Loader - 1 (URL-1) 

This routine loads the Service Library in the drum, 70000-757775 
it also clears HSS, groups 4, 5, 6 and 76000-77777 on the drum. A 
MJ-0 is left in 00000. Upon completion, the computer is halted on a 
MS-0 instruction with PAK set to the entry for the Ferranti Loading 
Routine. URL-1 occupies blocks 33, 34 on MT0. 

(4) Service Routine Library 

This is a compilation of routines of general use. The Service 
Library occupies blocks 35-174 on 8fT0. 

(5) Regional Coding Routine (RECO) 

^ This routine occupies blocks 175-225 on MT0. See write up of this 

^ routine for detailed description. 

i 

' (6) Library Routine 



This routine occupies blocks 226-245 on MT0. See write up of this 
routine for a detailed description. 



RR-126 
9 April 1956 



(7) Dictionary of Subroutine Library 

A list of indices for the subroutine stored in the Subroutine 
Library. This dictionary occupies blocks 246--305 on MT0. 

(8) Subroutine Library 

A compilation of subroutines of general program use. The 
remaining blocks of HT0 are reserved for this library. See write up 
of Library Routine for list of Subroutine in the Library. 

Loaders URL-2, and URL-3 are part of the Service Library and they effect 
the loading of RECO and the Library Routine respectively into HSS. The Library 
Routine has a built in loader which effects the transfer of the Dictionary and 
the Subroutine Library to HSS. 

MT0 must be positioned to the dead space preceding the first block on tape 
before any use of the Utility Library can be made. To discourage inadvertent 
writing over the Utility Library, the MT0 WRITE switch is disabled; this switch 
in the DOWN position is the NORMAL condition of the computer. 
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GENERAL USE OF UTILITY ROUTINE LIBRARY 

I. Normalize Computer Operation 

This is an automatic operation which is designed to test the computer, 
transfer the Service Library to its drum storage, and clear HSS and the 
remainder of the drum. 

Operating Instructions ; 

(1) Typewriter ON; MT0 positioned. 

(2) MASTER CLEAR: All MJ and MS selects OFF. 

(3) If the Non-diagnostic Machine Test is not desired, set (A R )#). 
MT START. 

(4) Computer halts on MS0 instruction with PAK set to 70001. 

(5) Errors*, 

(a) Final Stop (57 77777 00000): This indicates that URL-0 
has not been transferred to HSS correctly. MASTER CLEAR, 
m START for a re-transfer. 

(b) Printed "T" and MS-0 Stop: This indicates that the Non- 
Diagnostic Machine Test has not been transferred correctly. 
Push START for re-transfer of the test routine. 

(c) Final Stop (57 77777 77777): This indicates that URL-1 has 
not been transferred to HSS correctly. MASTER CLEAR, MT 
START for a re-transfer. 

(d) Printed M S" and MS-0 Stop: This indicates that the Service 
Library has not been transferred correctly. Push START 
for a re-transfer of the Service Library. 

NOTE: If repeated transfer errors occur and it is 
suspected that the Utility Library is incorrectly 
^ stored on MT0, the machine operator should follow 

cm the procedure for loading the Utility Library on 

w MT0. 

§ **• Program Assembly 

o- 

*- Use of the assembly routines, RECO and the Library Routine, in the 

>< Utility Library is accomplished by entries 70010 and 70011 respectively 

in the Service Library. Entry at these points activates loaders which 

read the assembly routines into their operating storage locations in HSS. 

For detailed operating instructions, see descriptions of URL-2 and URL-3 

in the Service Library. 
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III. Starting the Computer 

There are three methods of starting the computer depending upon the 
amount of information stored on the drum. 

(1) If the Service Library is stored correctly on the drum, one may 
use one of the routines in the library to load his program tape, 
and commence program operation and/or debugging. 

(2) If the Service Library is not stored correctly ©n t he drum, give 
an MT START for the Normalize Computer Operation (see description 
of same). This procedure is particularly advised when one 
suspects that the computer is malfunctioning. 

(3) If the Utility Library is not available on MT0 and the Service 
Library is not on the drum, a bootstrap procedure must be performed 
by the operator (see "Procedure for Loading Utility Library on 
MT0 M .) 
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PROCEDURE FOR LOADING UTILITY LIBRARY ON MT0 

If the Utility Library is not available on MT0 follow this procedure. 
This will work for a 16 interlace only. 

(1) MASTER CLEAR 

(2) Switch to ABNORMAL DRUM 

(3) START 

(4) After FINAL STOP, switch to NORMAL DRUM 

(5) Set PAK^OOOOO and load tape I 

The Ferranti Loading Routine is now on the drum. 

(6) Set PAK=70001 and load tape II 

The "Write Magnetic Tape 0" routine is now in HSS. 

(7) Position MT0 t ° turn MT0 WRITE Switch to UP position. 

(8) MASTER CLEAR; MD START and load tape III. 
The Utility Library is loaded onto MT0. 

(9) Set PAK=00077 START. This will cause a check sum of the information 
written an MT0 to be computed and compared with the sum computed 
from paper tape. If these two sums do not check a "tttt" is printed 
and computer stops. Push START for another comparison. If repeated 
check sum errors occur return to step (6). Skip step (7). 

(10) After a successful loading of the Utility Library on 5fT0 t turn MT0 
WRITE switch to DOWN position. Give an 8TT START to perform the 
normalize computer operation. 
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PROGRAMMING AND OPERATION CONVENTIONS 



I. Drum Image of HSS : 

Drum cells 76000-77777 are reserved for the image of HSS. This 
image is used by most service routines as a temporary store for HSS 
While the service routine operates from HSS. The programmer is advised 
not to load into the image as this may result in incorrect loading of 
HSS. The programmer may use this part of drum storage as a temporary 
pool or work space during the operation of his program, but in so doing 
deprives himself of several facilities in the Service Library for 
program debugging. 

II. Drum Storage for the Service Library 

Drum cells 70000-75777 are reserved for the Service Library and are 
not, in general, available for program use. Loading programs into the 
range 70000-70037 deprives the programmer of all facilities of the 
Service Library, while loading Into the range 70040-75777 may deprive 
him of only part of the Service Library. 

III. Storage Used in Assembly of Subroutines 

The remarks made in I and II concerning the reserved portions of 
group 7 on the drum apply also when assembling subroutines. The modified 
subroutines are stored at the specified relocation addresses, and then 
punched out, if the punch-out option is chosen. 

IV. The MT0 unit is reserved for the Utility Library only. Any use of 
MT0 in an operating program must be brought to the machine operator's 
attention so that he may take necessary steps to preserve the Utility 
Library tape. 

The NORMAL condition of the computer is indicated when the MT0 WRITE 
Switch is disabled (DOWN). 



x 
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GENERAL PROCEDURE FOR COMPUTER OPERATION 

The following items should be checked before going on the computer: 

(1) List all memory used to determine if it is compatible with loading 
routines and Service Library. 

(2) Do not try to load any tapes other than yellow or black. (Other 
tapes loaded at your own risk.) 

(3) Keep tape off the floor. 

(4) List library subroutines needed to determine if these routines are 
in the library. 

(5) Determine which service routines will possibly be needed. 

(6) Warm up the card equipment before using (at least one hour). 

(7) Determine what peripheral equipment will be used. 

When working with customers, the above information should be on hand before 
they arrive. For customers, determine the amount of assistance needed and/or 
wanted. 

Before loading program tapes, it is suggested that the following procedure 
be followed; 

(1) Check the ABNORMAL CONDITION panel. 
If ABNORMAL light is on, check with the operators. 

(2) Check the drum interlace if the drum is used in the program. 

(3) Check the Fj switch. 

(4) Check the Field III switch in the card control unit if program uses 
card equipment. If the program is to use field III (Cols. 73-80), 
the switch should be in NORMAL Position. 

(5) If any magnetic tape units are to be used in program, check to see 
c\i if the units desired are switched to RUN and are properly positioned. 

o (6) If the High Speed Punch and/or Card equipment are not to be used in 

o the program, turn them OFF. 



NO 



o^ 






(7) Turn Ferranti Reader OFF when not in use. 

(8) If card equipment is to be used in the program be sure to clear both 
channels (read and punch) before giving a program START. 
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Upon leaving the computer, the following procedure is suggested: 

(1) Check to see that all program tapes and output tapes are rewound 
and not left in baskets or on the tables. 

(2) Clear the card equipment read, punch and receiving hoppers of all 
program input and output. 

(3) If any information is stored on any of the magnetic tapes for future 
use, it is the programmers responsibility to see that these tapes 
are saved; otherwise it will be assumed that these tapes are usable 
for other programmers. 

(4) Restore the Service Library to the drum. 

CAUTION ; It is advised as general practice never to Master Clear while 
any of the magnetic tape units are in motion. Such clearing drops all 
MT lockouts, and subsequent computer references to any moving tape will 
cause trouble. 



CM 



I 

O 
I 

o 
© 



X 



9-26 



RR-126 
9 April 1956 



SERVICE BOUTINE LIBRARY 
Service Routine Entries 
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70000 




Final Stop 


70001 




Ferranti Loading Routine (FRI-0) 


70002 




Flex Code Loading Routine (FLEXIE) 


70003 




Read 


70004 




Write 


70005 




Flex Dump 


70006 




Bi octal Dump 


70007 






70010 




Reco Loader (URL-2) 


70011 




Library Routine Loader (URL-3) 


70012 






70013 




Changed Word Post Mortem 


70014 






70015 






70016 




Single Breakpoint Stop 


70017 




Automatic Sampler 


70020 




Restore HSS from Image 


70021 




Punch Check Sum 


70036 




Common Exit 


76000-77777 


HSS Image-loading in this range re 
incorrect loading of HSS. 


70000^ 


-75777 


Service Routine Library-loading in 



deprives one of the service routines. 
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PROGRAM ENTRIES TO SERVICE ROUTINES 



The block of cells 70000-70037 is reserved for entries to the service 
routines. Cell 70036 is reserved as the common exit from those service 
routines which by their nature admit program entry and exit. For example, 
the use of FRI-0 as a subroutine would be effected by the instruction 37 
70036 70001. All required parameter words must place in the appropriate 
registers before entry is made to the particular service routine. by a Return 
Jump instruction. For example, the use of the Bioctal Dump would be effected 
by the following sequence: 

n: 11 (x) 10000 
n+1: 37 70036 70006 

where, say, (x) - 00 00001 01777 

CAUTION : Since the service routines each have only one 
entry, any inadvertent (or not) loading in the range 70000- 
70037 deprives one of all the service routines. 
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COMMENTS ON USE OF SERVICE LIBRARY 

I. Paper Tape Preparation 

a) Bioctal tapes should have double 7th level at the very end of the 
tape. 

b) Flex code (absolute) program tapes should have at least one 7th 
level punch at the very end. 

c) Flex code (RECO) prog ran tapes should have an END. (car. ret.) or 
END (car. ret.) at the end of the tape. 

d) Assembled RECO program tapes are suitable for direct input via 
FLEXIE. Such tapes may be converted to bioctal if so desired. 

e) Flex dump tapes are suitable for reloading via Flexie. Be sure that 
a 7th level punch is present at the end of the tape. 

f) Care must be taken in handling paper tapes to insure that they are 
kept clean. Foreign substances on tapes may cause improper loading 
into the computer. 

II. Alarm Print 

Many of the Subroutines contain references to the Convair Alarm Print. 
The location of this is at 75700-75777. The entries are: 

37 75700 75701 main routine 
37 75700 75702 subroutine 

The alarm print in the service library is a modified version of the 
Convair routine. Program, constants and working space are in the range 

75700-75777. 

III. Flex Constant Pool 

^ A group of commonly used Flexowriter codes are stored in the Service 

§ Library, in the range 75757-75777. This pool is used by several Service 

Y routines; however, it is available for general program use. The pool 

a consists of the following: 

o 

§ 75757 00 00000 00037 

S 75760 00 00000 00052 1 

x 75761 00 00000 00074 2 

°* 75762 00 00000 00070 3 

75763 00 00000 00064 4 

75764 00 00000 00062 5 
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75765 


00 


00000 


00066 


6 


75766 


00 


00000 


00072 


7 


75767 


00 


00000 


00060 


8 


75770 


00 


00000 


00033 


9 


75771 


00 


00000 


00045 


Carriage Return 


75772 


00 


00000 


00004 


Space 


75773 


00 


00000 


00057 


Shift down 


75774 


00 


00000 


00047 


Shift up 


75775 


00 


00000 


00051 


Tab 


75776 


00 


00000 


00042 


Period 


75777 


00 


00000 


00056 


Minus. 


ResponsibiJ 


Lity of Restorina Se: 


rvice Library 



IV. 

It is the responsibility of any operator who damages the Service 
Library to restore the same to the drum before leaving the computer. 

V. Loading Routines "Transfer Control" Option 

The loading routines, FBI-0 and FLEXIE, now have a "transfer control 
option. The following procedure will effect the transfer for either 
load routine. 

(1) set program tape in reader 

(2) MASTER CLEAR 

(3) Set the computer on MAIN PULSE 0. 

(4) Manually insert the following into PCR 

37 70036 70001(2) 

(5) Set PAK= program start 

(6) START. 
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PROCEDURE FOR LOADING SERVICE ROUTINE LIBRARY 

I. Normal Operation 

The Service Routine Library is normally stored on the drum, 70000- 
77777. Entry to the routines is achieved by setting PAK to one of the 
low-numbered drum address, 700XX. 

II. m Start 

If the Service Library is damaged on the drum, select an MT Start. 
This will effect the following: 

(1) Non-diagnostic machine test 

(2) Transfer of Service Library to the drum 

(3) Clearing of HSS and drum storage. 

If (1) is not desired, set (A R )#) before the MT Start. 

III. Bootstrap 

If the Service Library is not available on magnetic tape, follow this 
bootstrap procedure. This will work for a 16 interlace only. 

(1) MASTER CLEAR 

(2) Switch to ABNORMAL DRUM 

(3) START 

(4) After FINAL STOP, switch to NORMAL DRUM 

<5) Set PAK=00000 and load tape I 

The Ferranti Loading Routine is now on the drum. 

(6) Set PAK=70001 and load tape II 

The Service Library is now on the drum. 
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SERVICE ROUTINES 



j Verranti Loading Routine (FRI-O)" ] 



The routine will load anywhere. Loading into HSS and 76000-77777 will 
result in incorrect loading of HSS. A sura check is made whenever the input 
tape contains an insert to 75202, 75203. (See Punch Check sum routine. ) 

Operating Instructions: 

(1) Turn manual stop »1 OFF. 

(2) Set PAK = 70001; START. 

(3) Computer halts on 56 00000 70001 after completing read in. START 
to load another tape. 

(4) Two consecutive seven-level punches in the trailer should be present. 
If these punches are not present, the following procedure may be used; 

(a) POBCE STOP after the paper tape has passed through the reader. 

(b) Set PAK = 00066 START. The last block of information read in 
is then stored in its proper location. 

(5) Errors 

(a) Machine prints "t" and halts. FRI-0 is not in HSS correctly 
and must be restored. START, transfer FRI-0 to HSS again. A 
second failure indicates that FRI-0 is not stored in the Service 
Library correctly. In this case, revert to formalize Computer 
Operation. 

(b) Machine prints "c" and halts. A check address has failed. 
STARiing ignores this error and routine proceeds as though 
error had not occurred. A check address failure should not 
be ignored as it is very likely that the paper tape is in 

^ error. 

NO 

CM 

CJ (c) Machine prints "m" and halts. Check sum has failed to agree 
oL with computed sum of data read in. START to ignore this error 

o and to have routine continue read in. 

o 

r-l 

X 
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[ FLEXIE - A Flex Code Loading Routine | 



This routine is designed to load Flex Code tape prepared on a Flexowriter 
in the conventional fashion for translating to bioctal. Flexie operates in the 
same fashion as the bioctal Ferranti Loading Routine. A sum check is made 
whenever the input tape contains an insert to 75202, 75203. 

Operating Instructions; 

(1) Set PAK = 70002; START 

(2) Computer halts on 56 00000 70002 after completing read in. START to 
load another tape. 

(3) At least one seven-level punch should be present in the trailer to 
stop the routine. If this punch is not present the following proce- 
dure may be used. 

(a) FOHCE STOP after the paper tape has passed through the reader. 

(b) MASTER CLEAR; set PAK = 00022 START 

(4) Errors : 

(a) Machine prints M t M and halts. Flexie is not in HSS correctly and 
must be restored. SIA,IS transfers Flexie to HSS again. A second 
failure indicates that Flexie is not stored in the Service Library 
correctly. In this case revert to the Normalize Computer Operation. 

(b) Machine prints "c" and halts. A check address has failed. A 
START ignores this error and routine proceeds as if no error had 
occurred. 

(c) Machine prints "m" and halts. A check sum has failed to agree 
with computed sum of data read in. START to ignore the error. 



[ Read ] 



^5 This routine provides for the display of the contents of consecutive mem- 

C ory locations in Q, after an initial address is stated. 

i 

© Operation Instructions: 

o 



(1) Enter initial address, a, in A v . 

(2) Set PAK = 70003 

(3) START, (a) are displayed in Q. The address is automatically advanced 
for reading successive cells by repeated STARTs. 
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[Write ] 



This routine provides for the writing in consecutive memory locations after 
an initial address is stated. 

Operating Instructions: 

(1) Enter the address in A v . Enter the contents for that address in Q. 

(2) Set PAK = 70004 START. 

(3) The address is automatically advanced for writing in successive cells 
by repeated STAKTs. 



[Flex Dump (FLEXO) ] 



This routine dumps the contents of consecutive storage cells on punched 
paper tape only . Automatic page editing is provided and every eighth address 
is given. The punched tape is suitable for re-loading via Flexie. A check 
sum is punched out at the end of the dump. (A^), (Ar), (Q) are not restored 
or punched out. HSS is restored. This routine replaces RW-73 (Flex Dump). 

Operating Instructions; 

(1) Enter in Q u the address of the first cell to be dumped. 

Enter in Q v the address of the last cell to be dumped. 

If a seven- level punch stop code is desired at the end of the dump 
set 035=1. 

(2) Turn ON the High Speed Punch. 

(3) Set PAK = 70005 START. 

(4) The machine halts on 56 00000 70005 providing a re-entry for another 
dump. 

^S (5) Errors: 

i—i 

o- (a) Machine prints "t" and halts. Flexo is not in HSS correctly. 

© START transfers Flexo to HSS again. A second failure indicates 

§ that Flexo is not stored in the Service Library correctly. In 



x 

CL4 



this case revert to the normalize Computer Operation. 

(b) Machine prints M p M and halts. An illegal parameter word has been 
set up in Q and is displayed there. Clear Q manually and insert 
correct parameter; START . 
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(6) Flexo clumps only one type of storage at a time, either HSS or drum. 
This routine does not use the 76000-77777 image, but uses an image 
70400-70715 as a temporary store for part of HSS. 



Bioctal Dump 1 



This routine will dump onto paper tape in bioctal form the contents of any 
specified number of consecutive storage cells in HSS or the drum except 76000- 
77777. A check sum is automatically punched at the end of the dump. A double 
seven-level punch at the end of the tape is optional. 

Ope rat i ng Ins t met ions; 

(1) Enter in Q u the address of the first cell to be dumped. 

Enter in Q v the address of the last cell to be dumped. 

If a double seven- level stop code is to be punched following this 
dump, set Q P p#>. 

(2) Turn High Speed Punch ON. 

(3) Set PAK = 70006 START. 

(4) The stop at the end of the dump, 56 00000 70006, provides a re-entry 
for another dump. The contents of (A) and iQ) are not retained. HSS 
is restored at the end of the routine. 



TbECO II LOADER (URL-2) 1 



This routine effects the transfer of RECO II from MT0 to HSS and transfers 
control to RECO after a successful sum check and rewind of MT0. 

Ope rat i ng Inst rue t ions : 

(1) Turn High Speed Punch and Flexowriter ON. 

^ (2) Set program tape to be assembled in reader. 

i-H 

£ (3) Set PAK = 70010 START. 

1 

o 
§. RECO is transferred from the Utility Library, a routine sum check per- 

£ formed and MT0 rewound. Control is then transferred to RECO and 

x assembly begins. If no subroutines are assembled, the computer halts 

.** on 56 OOOOt 00360 providing a re-entry to the assembly routine which 

is still in HSS in its correct form. If subroutines are assembled, 
RECO transfers control to URL-3 (Library Routine Loader) and the 
Computer finally halts on 56 00000 70011, providing a re-entry to URL-3. 
(See writ«up of RECO II for more detailed description of tape prepara- 
tion and handling. ) 
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(4) Errors; Machine prints "al", rewinds MT0 and halts. This means that 
RBCO has been transferred incorrectly from the Utility Library on MT0. 
START effects another transfer. Repeated errors indicate that RECO 
is not stored on MT0 correctly. In this case revert to the bootstrap 
procedure described in "Procedure for Loading Utility Library on mT0 m . 



( ^Library flout ine Loader (URL-3) | 



This routine effects the transfer of the Library Routine from MT0 to HSS 
and transfers control to the Library Routine upon completion of a successful 
sum check. 

Operating Instructions: 

(1) Turn High Speed Punch and Flexowriter ON. If no punch-out of assembled 
subroutines is desired set MJ1 select ON. 

(2) Set Flex code tape of subroutine assembly information in reader. 
( NOTE ; When assembling RECO tapes, the END psuedo code transfers 
control to URL-3; in this case the Flex tape of subroutine informa- 
tion must be spliced on the end of RECO tape. ) 

(3) Set PAK = 70011 START 

The Library Routine is transferred from MT0 to HSS and a routine sum 
check performed. Control is then transferred to the Library Routine 
and assembly begins. Upon completion of assembly computer halts on 
56 00000 70011 providing re-entry to the Library Routine Loader. 
(See write-up of Library Routine for more detailed description of 
tape preparation and handling. ) 

(4) Errors: Machine prints H a2" ( rewinds MT0 and halts. This means that 
the Library Routine has been transferred incorrectly from JC?0 e START 
effects another transfer. Repeated errors indicate that the Library 
Routine is not stored on MT0 correctly. In this case revert to the 
bootstrap procedure described in "Procedure for Loading Utility Library 
on MT0**. For a list of errors encountered in assembly and the appro- 
priate operating instructions for same, see write-up of Library Routine. 

3 CAUTION : Do not assemble subroutines in the range 70000-77777. 

r-l 

i 

O 

I 



g [ Changed Word Post Mortem j 



x This routine is designed to compare the contents of each word of HSS with 
^ its image at 76000-77777. The image contains (unless disturbed) the original 
contents of HSS as read into the computer. Those words in HSS which have been 
changed by the execution of the program are the only ones reported out. 
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Operating Instructions: 

(1) Turn High Speed Punch ON. 

(2) Set PAK = 70013 START. 

(3) Computer halts on 56 00000 70013. 

The following will be punched in Flex Code. 

a) (Q) 

b) (Ar) 

c) (Al) 

d) Any changed word according to the following: 

HSS word Image word HSS address 
At the end of the routine, (A), (Q) and HSS are restored. 

(4) This routine uses the cells 70600-70777 as temporary storage for part 
of HSS while the routine operates. 



[ Single Breakpoint Stop 1 



This routine permits one to select a single address of a program which one 
can run on high speed and stop before executing the instruction at that address. 
One may then sample the results of computation to date or step through several 
instructions. 

Operating Instructions: 

(1) Enter in Q v the breakpoint address. 

Enter in A v the entry address for the program. 

(2) Set PAK = 70016 STAET. The program will be executed up to the break- 
point at which time the computer will halt on 56 00000 70016, providing 
a re-entry for another breakpoint stop. 



[ Automatic Sampler (Sara-6) | 



This routine provides for the printing or punching (in octal or decimal) 

£ the contents of any selected cells at selected check points. Output is suppressed 

for the first N p times through the check point and after (Np + N s ) times. The 
su program which is being sampled is executed normally between check points. It is 

not necessary to provide for sampling while writing the program. The programmer 

stores in any available block of memory a list of information regarding check 

points, cells to be sampled, and scales. 
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A) Operating Instructions: 

(1) Bead in the program to be sampled. This is the unmodified problem 
program. 

(2) Head in the "Sampling List Tape". See below for description of 
this tape. 

(3) Set PAK = 70017 START. The routine sets up check points and 
transfers control to g^ which is contained in the sampling list. 

B) Sampling List Tape (Flex or Bioctal). 

This tape loads cell 73643 and the sampling list which contains a num- 
ber of sublists, one for each check point. Each sublist contains all 
information necessary for sampling at one check point. This informa- 
tion may be stored in any convenient set of consecutive BSS or ND cells 
except 00100 through 00167. 



The sampling list tape format is as follows: 
Fixed Storage 73643 XX L 



Lf 





Check point address L 


00 


00000 


c.p. 




Index word 1 


-1 


00 


* 


*s 




Parameter words L2 


Oa 


s 


one < 






• 


• 


. 


complete 






• 


• 


. 


sublist 






Oa 


M 


s 




End word 




70 


00000 


00000 




End word 




70 


00000 


00000 


' 






00 


00000 


c.p. 








00 


Np 
M 


N s 








Oa 


s 


< 






• 


• 


• 








70 


00000 


00000 




I 


-f 


70 


00000 


A 






I 

o 
o 



X 

Cl, 



(1) Fixed storage - The word XX L Lf read into 73643, gives the 
address of the first cell (L ) and the last cell (Lf) of the 
sampling list. Printing or punching is specified by XX, 61 for 
printing and 63 for punching. 

(2) Check point address - The word 00 00000 c.p. gives the check point 
address, c.p. Sampling occurs before execution of the instruction 
at c.p. 
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(3) Index word - The word 00 Np N s gives two 5-octal-digit numbers, 
Np, signifying the number 01 times the check point is to be passed 
before sampling starts, and N s , the number of times sampling is to 
occur at the check point. 

■i 

(4) Parameter words - These are of the form Oa M s where the first 
octal digit is always zero. The second octal digit, a, takes on 
the values 

for octal output 

1 for decimal output. 

If a>l, the parameter word is ignored. The u-portion of each 
parameter word contains the octal address, N, of a cell whose con- 
tents are to be sampled. If M = 20001, (A^) is sampled. If M is 
not a machine address the parameter word is ignored. The v-portion 
of eaeh parameter word contains the binary scale factor, s, of the 
contents of M. 0£s*70. If s *70, "2 small" is printed. 

(5) End words - The last two words of each sublist are of the form 
70 00000 00000 with the exception of the second end word of the 
last sublist (Lf), which is 70 00000 6 . SAM-0 jumps to •* 
after setting up check points on a 70017 start. 



C) Output 



Shown below is an example of sampler output where the check point 
address was 00303. 
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a, 



00303 




00075 


12 34567 12340 


00076 


77 03124 65432 


00100 


1.23456789017 


00101 


-321.098632812 


00102 


993059913.000 


00103 


0.43210987653 


20001 


14 00000 00000 


10000 


37 37373 73737 



D) Restrictions 

The word initially stored at a check point must be an instruction; it 
must not be a repeat command or a repeated instruction and it may not 
be written into or out of at any time during the course of the program. 



f Restore HSS from Image ] 

This routine provides for an automatic transfer of the image, 76000-77777, 
to HSS. 
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Operating Instructions: 

(1) Set PAK = 70020 START. 

(2) Computer halts on 56 OOOOG 70020. 

f Punch Check Sum ] 

This routine is to be used immediately after loading a program tape by 
means of the Ferranti Loading Routine (FRI-0). It punches a trailer containing 
the sum of the loaded program with proper insert and check addresses. This 
trailer can then be merged with the program tape to provide a check sum upon 
subsequent loadings. 

Operating Instructions: 

(1) Load the program tape. There must be no double seven-level punches 
in the program tape. Thus after loading with FRI-0, the computer will 
hang up on an External Read* FORCE STOP the computer. 

(2) MASTER CLEAR; set PAK = 70021 

(3) START. The following punched tape will be produced: 

IA 75202 

CHECK 

SUM 
CA 75204 
Double seven-level punches. 

The program will be properly loaded at the conclusion of this routine. 
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REMINGTON RAND UNIVAC 
REGIONAL CODING ROUTINE II (RECO II) 



Introduction 

RECO is a one-pass assembly routine designed to translate an 1103 
program coded in symbolic, regional address form to 1103 machine language. 

Paper tape punched in Flexowriter code is the input -output medium 
for RECO. Input is the tape of RECO-coded program to be assembled. Except 
for the input of decimal numbers, all numbering in this program is recorded 
in the octal system. Output is the tape of the assembled program in octal 
notation. The output is translatable to bioctal form via the ERA converter, 
or may be loaded directly into the computer using the ERA "Flexie" load 
routine. A listing of the assembled program may be readily obtained on a 
Flexowriter. 

RECO offers considerable flexibility in recording 1103 words. The 
1103 symbolic and numeric operation codes, as well as those of the Interpre- 
tive System are available for use. Addresses may be recorded in either abso- 
lute or relative form. Relative addresses use a two- letter regional address 
code; in addition, the one letter regional address codes A and Q refer auto- 
matically to the accumulator and Q-register. A maximum of , 100 distinct re- 
gional address codes is available in a RECO coded program, and the pseudo- 
instructions assigning absolute addresses to each of these codes precede the 
main program on the input tape. 

Provision is made for the direct input of program constants written 

in decimal notation. A decimal number, N, is automatically converted by RECO 

to its signed 36-bit equivalent in fixed point, or floating point, form. The 

floating point form offers full range conversion, the range being roughly, 

10~| 8 | N | < 10 38 

All decimal numbers are identified as such by a RECO pseudo-operation code. 

The punching of insert and check addresses on the output tape is 
obtained by using pseudo- instruct ions. A check sum of assembled 1103 words is 
automatically punched out with each check address instruction. A pseudo- 
instruction is available whereby the programmer can insert a MJOv instruction in 
addresses 00000 and 40000; this pseudo-instruction permits him to begin opera- 
tion of his program with an UD start. 



Y Two types of terminating instructions are available. The first of 

c> these punches out trailer and halts the computer. The second punches out 
© trailer and transfers control to the ERA Library Routine. Thus, if the pro- 
f> grammar desires the assembly of certain subroutines for his program he must 
r- record the proper terminating command followed by a list of subroutine indices 
>< at the end of his input tape. This option permits continuous assembly of the 
complete program. The total output in this case would consist of two parts on 
one continuous tape: (1) Assembled main program; (2) Assembled subroutines. 

Several types of program errors are detected by RECO. The type of 
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error and its location on the input tape are printed out on the Flexowriter. 
All RECO output ceases as the first program error is detected, and the RECO 
input tape is processed from that point on for errors only. This error detec- 
tion is United in the sense that only the first error of a program word is 
recorded. 

A detail description of RECO programming is given below. Part I 
discusses the writing of regular 1103 words in symbolic form. Part II lists 
the seven RECO pseudo instructions. Part III describes input-output format. 
Part IV describes RECO error detection. Part V lists RECO operating instruc- 
tions. Figure 1 of Part III is an example of a RECO program. Figure 2 dis- 
plays a listing of the assembled program given in Figure 1. 



I. 1103 Words 

A. Address Portion 

Addresses may be recorded in either absolute or relative form. RECO 
requires that at least one digit be recorded for any absolute address. Relative 
addresses appear as a \ a 2 B, where (a \ a 3) is a two- letter code denoting 
any one of a maximum of 100 (decimal) addressable regions, and where (B) de- 
signates the sequence number of the address within the region (a 1 a 2)* The 
only restriction en the choice of letters in the regional address code is that 
a 1 ^ A or Q. (B) may be zero, in which case only (al a 2) need be recorded. 

The regional portion, ia\ 02)* of a relative address is assigned its absolute 
address value, 8, by means of the RECO pseudo- instruct ion REaj a 2 &. All 
such assignments should be recorded at the beginning of the program tape. 

RECO requires that an entry be made for each address portion of every 
1103 instruction and octal constant. For an instruction in which an address 
portion is a M j w t "jn", or M jk M number (e.g. BPjnv), all five octal digits 
must be recorded; if j = 0, one need only record 0, n, or k. 

B. Operation Portion 

Operation codes are either the two digits or the two letters of the 
1103 instruction repertoire. The numerical operation codes extend from 00 to 
77. Jn addition, the alphabetical, numeric, or alpha-numeric operation codes 
used in the 1103 Interpretive System are recognized by RECO as legal operations. 

3 However, the operation code for the Interpretive Replace Multiply is restricted 

^ in form to either IP70 or 1470. 

I 

T Those 1103 words which form octal constants with absolute or relative 

g address portions, must have at least one and no more than two digits recorded 
in the operation portion of the word. 



o 



•£ C. Decimal Numbers 



All decimal numbers are converted by RECO to signed 36-bit equival- 
ents. Decimal numbers must be identified as such by the pseudo-operation code 

* 

6 
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DE; these are the only program words for which RECO accepts numbering in the 
decimal system. 

There are two forms of decimal number words: 

(1) Fixed Point DE -t i.fj^ ••• ^9*10 p s « where 
l<i<9, 0<fj<9, -99<P<99, such that 
0<log 2 |± i.fif 2 ... f9f 10 x 10^1 +S<35. 

"S n is the binary scale factor applied to 
1+ i.fif 2 ... f9 fio x lO 1 * | . M P" is the power of ten. 

(2) Floating Point DE f i.fif 2 ••• f 9 f l0 p F « 
where 1< i< 9, 0< fj < 9, -39 < P < 39. "F" is the 
code letter denoting floating point conversion to 
packed (28-8) form with biased characteristic. 

The range on a floating point decimal number, N f is roughly 10~38 < | N | < 10 . 

The plus sign (+) is optional on all signed quantities in the decimal 
number. The decimal point and some value for P and S must always be recorded. 

l. Subroutine Assembly 

RECO does not assemble library subroutines directly; rather, it pro- 
vides the option of transferring control at the end of a RECO assembly to an- 
other program which assembles subroutines. The use of this option terminates 
all RECO assembly and punches out those subroutines listed on the input tape. 
This list of subroutines must be prefaced by the RECO instruction END and must 
comply with the input format of the ERA Library Routine. 

The output tape resulting from use of this subroutine option is one 
— continuous flex code tape consisting of two parts: (1) Assembled main program; 
c5 (2) assembled subroutines. 

o» It is imperative that all, if any, subroutine assembly be the final 

o step in a complete program assembly. The reason for this is that the use of 

§■ the subroutine option in effect destroys all previous REa^c^ § instructions, 

£ and of course the information contained in these instructions is necessary for 

x proper RECO assembly. 



3 
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II. RECO Instructions or Words 



A. 



RE 



B. DE 



C. 



IA 



D. CA 



^• f l f 2 



a l a 2 B 



1 a & 



E. START a x a 2 B. 



F. 



em), 



G. END 



"Assign the region aj a? the value 8 " 
This instruction is described in I-A above. 



f 9 f 10 



P S(F) "Decimal Number Fixed 
(Floating)" This instruction is described in 
I-C above. 



"Insert address at a ± a 2 B" This instruction 
causes a six-inch leader to be punched out 
followed by the translated insert address, 
a i a 2 B « 

"Check address at aj a 2 B" This instruction 
causes the translated cneck address, a . a B, 
to be punched out, followed by a punch out of 
a check sum of all 1103 words since last IA 
instruction. This check sum is inserted at 
machine addresses 75202 and 75203 on the 
output tape. 



"Start program at a . a 2 B" This instruction 
causes a translated MJO (a a B) instruction 
to be inserted at addresses OOOOD and 40000 on 
the assembled program tape. The correct ad- 
dresses and check sums are automatically punched 
out. This instruction is optional. 

**End RECO program assembly H This instruction 
causes a 10 inch trailer, followed by two 
periods and a seventh level to be punched out, 
before halting the computer. 

"End RECO program assembly, begin subroutine 
Assembly" 

This instruction causes a 10 inch trailer to 
be punched out, and transfers control to the 
subroutine assembly program as described in 
I-E above. 
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III. Input -Output Format 

Figures 1 and 2 are illustrations of the horizontal and vertical 
input-output formats. The format exhibited in Figure 1 is strongly recommended 
for RECO programming. Fvery 1103 and RECO word must be terminated by at least 
one vertical space (i.e. carriage return), and the distinct portions of any 
word must be separated by at least one horizontal space (i.e. space or tab). 
RECO ignores all leader, shift up, shift down, and delete flex codes. In parti 
cular, flex characters for "1" and 1 (one), and o and O(zero) are not inter- 
changeable. 

4 
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Figure 1 



RE BCIO 

RE ZA40 

RE TQ100. 

RE RS50Q00 

START BC 

IA BC 

TP TQ10 A42 

12 TQ6 Q 

SP TQ14 17 

EF TQ13 

77 10000 20000 

LA TQ5 A17 

DV TQ6 TQ14 

IPMP ZA ZA5 

RP 30005 BC12 

TP ES ZA 

PR BC 

MS 30000 BC14 

SS Hi TQ12 

1473 TQ10 TQ14 

RJ RS5 RS 

KJ ZA 

CA BC20 

IA TQ5 

DE +2.147483648 9 F 

DE -7.3786976294 19 -36 

DE 2.9103830456 -11 35 

DE 3.14159 5 F 

DE 1.0 10 

DE 3.162278 -38 F 

7 



DE 1.7014118 38 F 

CA TQ16 



EM). 
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Figure 2 



.000000.040000. 
45 00000 00010. 
00000004.0001. 
000000.075202. 
00 00000 00000. 

45 00000 00010. 
00000007.5204. 



.000000.000000. 
45 00000 00010. 
00000000.0001. 
000000.075202. 
00 00000 00000. 

45 00000 00010. 
00000007.5204. 



be 
.000000.000010. 

11 00110 20042. 

12 00106 10000. 
31 00114 00017. 
17 00000 00113. 

77 10000 20000. 
54 00105 20017. 
73 00106 00114. 
14 71004 00045. 



75 30005 00022. 

11 50000 00040. 

~ 61 00000 00010. 

5 56 30000 00024. 

J 23 00111 00112. 

o 14 73011 00114. 

§ 37 50005 50000. 

£ 45 00000 00040. 



00000000.0030. 
000000.075202. 
00 00000 00007. 
70 74706 41000. 

00000007.5204. 
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Figure 2 (continued) 



tq+ 

.000000.000105. 
20 00000 00240. 
76 77777 77777. 
00 00000 00001. 
23 13136 00223. 

11 24027 62000. 
25 41273 44004. 
00 00007 00000. 
00 00000 00000. 



37 77777 76777. 
00000000.0116. 
000000.075202. 
00 00000 00002. 

41 00470 25466. 
00009007,5204. 



7 
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Format of output listing is exhibited in Figure 2. This listing of 
an assembled program should prove to be useful in program debugging. The 
output tape is translatable to bioctal form or may be loaded directly into the 
computer via the EHA "Flexie" load routine. 

Flex Code stops are automatically punched by RECO after each check 
sum check address to facilitate bioctal translation or listing. 

IV. Error Detection 

RECO detects a limited number of program errors. These error types 
and their respective tags are as follows: 

OC Illegal operation code 

RC Illegal regional address code (i.e. Aa„ or Qa 2 ) 

CA Check address failure 

RA Unassigned relative address region 

AO Relative address exceeds the value 77777 

OD Illegal octal digit flex code 

FE Decimal point missing in decimal number 

Number of fractional digits (fj) > 10 in decimal number 

UN Decimal number underflow (i.e. loss of significant digits) 

DD Illegal decimal digit flex code 

OV Decimal number overflow (i.e. loss of significant digits) 

RECO detects only the first error in a programmed 1103 or RECO word. 
This detection does not apply to any errors occurring in the listing of sub- 
routine indices at the end of the input tape; errors in this portion of the 
2 input tape are detected by the subroutine program. 

Y As RECO encounters a program error, it prints out the error tag 

^ iol lowed by two decimal numbers , a group count and a word count, which locate 

g the error on the input tape. Group includes all RECO words prior to the 

£ first programmed insert address instruction, which is word 1 of group 1. Each 

^ succeeding insert address begins a new group. 

x 

All output ceases as RECO detects the first program error, and input 
tape is processed for errors only from that point on. This termination of out- 
put does not include that output resulting from subroutine assembly. 

If the number of RECO instructions RE a . a 2 $ exceeds 100 (decimal) 
the computer will halt with an SCC fault. RECO will not assemble such a program 
correctly. 

8 
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Improper horizontal and vertical spacing is also indirectly detected 
by RECO as one of the error types listed above. 



V. Operating Instructions 

1. Flexowriter and high speed punch on. 

2. Load input tape in Ferranti reader and position the tape several 
blank frames ahead of first character. 

3. Set all MJ and MS selects off; master clear; set PAK to 70010; 
START. RECO is brought into HSS from magnetic tape and assembly 
begins. 

a. If the instruction END. is recorded at the end of the 
input tape, the computer will halt on a 56 00000 00360 
instruction. If END. is omitted, the computer must be 
force stopped after input tape has passed through the reader. 

b. If the subroutine option, EM), is on the input tape and a 
period is recorded after the last subroutine index, the 
computer will halt on a 56 00000 70011 instruction. If the 
period is omitted, the computer must be force stopped after 
input tape has passed through the reader. 

4. To assemble a second program, and case (3)-a applies to the 
preceding program assembly, position second tape in reader, set 
PAK to 00360, and START. 

5. To assemble a second input tape making direct use of RE a , a « 8 
instructions from the preceding tape and case (3)-a 

applies, position the second tape in reader, set PAK to 
00364 and START. 



O AQ 





00001 


00 ooooo 02031 




00006 


00 00000 08018 




00003 


00 00000 01819 




0000% 


00 00000 08%86 




00009 


00 00000 08817 




00006 


00 00000 00730 




00007 


00 ooooo 00719 




00010 


00 ooooo ooooo 




00011 


00 00000 08307 




00018 


00 ooooo 03007 




00015 


00 ooooo 03107 




ooou 


00 00006 01207 




00019 


00 00000 0193% 




00016 


00 ooooo. ooooo 




ooou? 


00 000000131* 




00080 


00 ooooo ooooo 




oooai 


00 00000 0868% 




00022 


00 00000 0078% 




00089 


00 00000 01139 




0002% 


00 ooooo 01130 




00089 


00 00000 0398% 




00006 


00 ooooo 03930 




00087 


00 ooooo 03901 


o 


00030 


00 ooooo ooooo 


1 


00051 


00 00000 08138 


1 

o 
o 

1— 1 


00038 


00 00000 08%38 


cu 







RBC0 1 

RR-126 
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00001 thru 00100 
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00033 00 00000 00738 

0003* 00 00000 03338 

00033 00 00000 08032 

00036 00 00000 00138 

00037 00 00000 01*38 
oooto 00 00000 00000 
000*1 00 00000 01838 
000*8 00 00000 02*01 
000*3 00 00000 03001 
000** 00 00000 08*8* 
000*3 00 00000 08*06 
000*6 00 00000 08*30 
000*7 00 00000 08*13 

00030 00 00000 00000 

00031 00 00000 01616 

00038 00 00000 00000 

00033 oo ooooo 00707 

0003* 00 00000 01307 

00033 00 00000 0188* 

00036 00 00000 01101 

00037 00 00000 02830 

00060 00 ooooo ooooo 

00061 00 OOOOO 08086 
00068 00 OOOOO 00117 
00063 00 OOOOO 0013* 
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00 00002 Qi%13 




0000 


02 02000 00106 




00066 


00 00000 00107 




00067 


00 00000 00115 




00070 


00 00000 00000 




00071 


00 00000 00000 




00078 


00 00000 00000 




00073 


00 00000 00000 




0007% 


00 00000 00000 




00075 


00 00000 00000 




00076 


00 00000 00000 




00077 


00 00000 00000 




00L00 


00 00000 00000 




00101 


00 00000 0727& 




00102 


00 00000 07266 




0(003 


00 00000 07262 




0010% 


00 00000 0726% 




0010 


00 00000 07270 




00106 


00 00000 0727% 




00107 


00 00000 07252 




00110 
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2 01819 46 01816 01817 

01816 2120000 002*6 



r-f 



Ch 



© 01217 11 20000 01**6 



O 



cu 



01280 21 01*47 01*90 
01821 *3 00000 01211 
01222 11 00331 80000 
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0X223 36 01*61 oust 

0122* 71 0i**6 00330 

01225 7*20000 01*30 

01226 *4 01227 0U30 

01227 21 20000 002*4 
01230 112000O01**6 
01251 21 01**7 0L*$0 

01232 11 01*57 20000 

01233 *7 0123* 012**> 
0123* 31 002*6 00109 
012» 73 01**6 01*36 
01256 31 2000& 000OL 
01237 ** <a**6 012*1 

012*0 2101*36 002*6 OS* (08 Dfit) 



012*1 13 003** 20000 

012*2 36 01**7 <a**7 

012*3 U 01*96 01**6 

012** *3 00000 00000 011*3 900 012ft 

012*3 21 01*6*002*6 

012*6 *3 ooooa 012*7 

012*7 37 0126* 01233 

01230 36 00000 00360 

01231 2101*6*002*6 

01232 *3 00000 01233 
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0X2^3 37 012** 012** 

0125* *3 ooeoo 70011 

01133 73 0007* 01237 

0123* 63 00000 002*1 

01237 *3 00000 002*7 

012*0 *3 00000 00233 

012*1 *3 00000 00233 

012*2 *3 00000 002*7 

012*3 *3 10000 00537 

012** 73 001** 30000 

012*3 *3 00000 002*1 

012** *3 00000 01323 

012*7 *3 00000 01331 

01270 *3 00000 013*3 

01271 *3 00000 01333 

01272 *3 00000 01337 
•1273 *3 00000 01333 
0127* 03 1*121 *1*30 

01273 12 30300 30322 
0127* *3 00000 01337 

01277 *3 00000 013*1 

01300 *3 00000 01333 

01501 *5 00000 013*3 

01302 *3 00000 01333 

01303 00 00000 00000 

0130* 2* 202*0 33*0* 

01303 22 22031 70000 



Warn rancrioff 

OUTPUT (TXPBOaSBt) 
10UTHB* 



012** ttai 01*27 
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01504 57 00577 00571 

0X307 45 00814 01511 

01310 45 00000 01304 

01311 21 oi*3* 00244 
01512 41 00547 0151* 
01515 45 00060 00405 
0131* 14 00514 00551 
01315 14 00274 00444 
01314 14 00274 00725 
01517 14 00274 00742 

01520 14 00515 01244 

01521 14 00550 01252 

01522 45 00000 00405 
01525 55 01274 10004 
015*4 51 00212 01441 
01525 55 10000 00004 
01324 51 00212 01442 
01527 57 01405 01547 

01550 45 00000 01504 

01551 35 01274 10022 
01532 45 00000 01524 
01353 35 01275 10004 
01554 45 00000 01524 
01333 35 01275 10054 

* 01554 45 00000 01524 

01557 55 01504 10004 

01540 45 00000 01524 
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015*1 55 0239k 10022 

013*2 *5 00000 013** 

015*5 55 01505 1000* 

013** *5 00000 0132% 

013*5 55 OUT* 1003* 

013** 51 00212 01**1 

015*7 55 10000 0000* 

01350 51 00212 01**2 

01351 37 01*03 013*7 
01552 *5 00000 01311 
01355 55 01J0* 1003* 
0135* *5 00000 013** 
01355 55 01305 10022 
0135* *5 00000 013** 
01357 55 01175 10022 
013*0 51 00211 <a**i 
013*1 55 10000 0000* 
013*2 51 00212 0&**2 
013*3 37 01*05 013*7 
013** 1100*72 20000 
013*5 75 20005 0130* 
013** *3 00352 01311 

§ 013*7 *l 00000 0021* 

4 01370 *l 00000 00213 

i 01,71 ixooooooxui 

x 01572 *1 00000 01U2 
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01573 6i 00300 002X5 

0157* 6i ooooo 0021* 

01373 u 01*65 20000 

01376 37 01*20 01*0* 

01377 ^1 00000 00213 
01*00 11 01*6* 20000 
01*01 37 01*20 01*0* 
01402 61 00000 00216 
01*03 *3 00000 00000 
01*0* 73 3000* 01*06 
01*03 73 003t3 Ql**6 
01*06 13 00331 01*10 
01*07 11 0030* 01*3* 
€1*10 U <B**6 20000 
01*11 *7 01*21 01*12 
01*12 61 00000 00213 
01*13 210|*10 0Q3Q6 
01*1* *1 01*3* 01*10 
01*13 U 00266 20000 
01*16 36 01*51 01*17 
01*17 61 00000 00000 
01*20 *5 O0000 00000 
01*21 15 01*10 01*25 
01*22 U 00266 20000 
01*23 36 Ql**6 01*2* 
01*2* 61 00000 00000 
01*25 H 01*23 00506 
01*26 *1 01*5* 01*22 
01*27 *5 00000 01*15 
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library Routine 

Introduction 

The ERA Library Routine for the 1103 Serial 9 Computer extracts 
subroutines from a library file on magnetic tape and assembles them on the 
drum or in high speed storage for later use. At the option of the operator, 
a flex tape of all subroutines assembled is punched out on the high speed 
punoho 

This routine may be used in conjunction with RECO U (ERA Regional 
Coding Routine II) to give a continuous flex tape consisting of a main routine 
followed by all subroutines needed in the execution of the main routine. A 
description of this overall assembly procedure is given in the write-up of 
RECO. It is also possible to use the Library Routine separately. In either 
case input information must be provided by the operator in the form of a 
flex tape. This tape lists the subroutines to be assembled, together with 
information regarding assembly modification and storage. Routines may be 
stored at a location different from that with respect to which they are 
assembly modified. A detailed description of the inj.ut tape is given in the 
section "Input Tape Format 11 . 



£, Main Features of the Library Routine 



i 

o 

o 1) Exit Restoration 

o 



The library Routine replaces the first two words of subroutines 
in "standard form 1 * with the instructions 

37 75700 75702 

45 00000 [3000q] 9-80 
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The first Instruction refers to the Convair Alarm Routine which 
has had its insert address changed from 76000to 75700 in order to avoid 
interfering with the image. The second instruction is the standard exit. 
This "exit restoration* feature is included to facillitate relocating the 
Alarm Print routine. In fact, with minor modifications, a different standard 
preface can be appended to subroutines in the tape library, should this ever 
be desired. 

2) Assembly Modification 

Any routine coded may be modified relative to any HSS or drum 
address subject to the following restrictions: 

a) She routine is coded relative to 01000. 

b) All Instructions and relative operands are located consecutively 
at the beginning of the routine. 

e) All absolute constants are stored consecutively immediately 
after the modifiable words. 

A listing of routines which may be modified by the library routine 
is given in the appendix. The programmer must choose for each modifiable 
routine, the starting address with respect to which address modification la 
to occur, as explained in detail in the section on "Input l»pe Format*. 

3) Storage of Subroutines 

The programmer may choose to store a subroutine beginning at any 
HSS or drum address except in the image (76000-77777). Storage in the 



i 
© image will result in simultaneous storage of the subroutine in the correspond* 

r* ing high speed storage location. 

It is the programmer's responsibility to be sure that stored 

routines do not overlap. If it is desired to store two or more routines 

in the same locations, then toe library routine must be applied two or more times,, 

9-81 
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The programmer must choose a storage location for each routine 
whether it is assembly modifiable or not. 

The method of providing information on desired storage locations 
is given in the section "Input Tape Format". 

4) T^ped Hat of Subroutines 

During the operation of the routine, a list of subroutines to- 
gether with other information is typed out. This list may be used by the 
programmer to verify that the subroutines have in fact been assembled as 
he intended. For details see the section "Typed List of Subroutines". 

5) Flex Tape Ctatput of Assembled Routines 

The operator may procure flex tapes of the assembled subroutines 
if he desires (see Operating Instructions). In general either all of the 
subroutines are punched out, or none of them are. The following flex $ape 
la punched out Jmr each subroutine (with appropriate leader or trailer) s 



Insert Address (First Storage Address). 

Subroutine (modified or not as the case may be). 

Check Address. 

Insert address 75202. 

Check sum. 

Check Address 75204* 



vO 
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6) Final State after Using Routine 



T After the routine has been used and all subroutines have been 

o 
o 

£ assembled (and pessibly punched out), KSS is restored to its original form, 
$£ except for those locations in which subroutines have been stored. All the 
subroutines are in their desired locations ready for use. Magnetic Tape 



Unit has been backed up to its starting point. 
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A list of subroutines currently stored on MT Unit is given in 
the appendix. Preceding the first word of each subroutine on magnetic tape 
are four "tag words". Following the last word of each subroutine are enough 
"all zero" words to fill out the block of tape on which the last word appears. 
For example, a subroutine containing 4% words occupies two blocks on the 
tape; i.e., 4 tag words, 4&8 subroutine words, and 2£g blanks. 

The four "tag words" preceding a subroutine give the following 
information j 

1}. First words b c ddddd eeeee 

b « if routine is assembly modifiable. 

b = 1 if routine is not assembly modifiable. 

c e if exits are not to be restored. 

c ■ * 1 if exits are to be restored. 

ddddd t number of words if routine is assembly modifiable; 

first fixed operating location if it is not. 
eeeee s number of modifiable words if routine is assembly 
modifiable; last operating location if it is not. 
2). Second Words Check Sum (Left Fart). 
3). Third Words Check Sum (Right Part). 
4). Fourth Words 

This word is the routined library index, or more simply, 
Routine Index, and consists of a flex code of five letters, 
which are determined by the nature of the routine and two 
a. octal zeros to make up a 3t> bit word. Examples I 

a). Central Exchange Index s RR^-68 (e x - Floating Point). 
Routine Index s ex - fOl 
, Routine Identification Codes 20 27 26 37 £2 00 n QO 

9-oo 
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b). Central Exchange Index* CV 37 (Card Package) 
Routine Index t eg - 100 

Routine Iadentification Codei 16 13 52 Tt 37 00 
(Note that the "dash" in the index does not appear 
in the identification code*) 
The Library Routine is also stored on MT Unit 0* It is transferred 
to HSS from tape by the Library Routine loader in the Service Idbrary. 

Immediately following the Library Routine on MT Unit is a 40 
block " dictionary "• The first half consists of a 2 word check sum plus up 
to 510 (decimal) identification codes of the type described in the preceding 
section* All words not filled with identification codes are filled with 
zeros* 

The second half of the dictionary consists of a 2 word check sum 
and up to 510 "control words" • For each identification code in the 
first half of the dictionary, there is a control word in the same relative 
position in the second half; i.e., if the identification code correspond- 
ing to a given subroutine is the nth word in the first half of the dictionary, 
3=n-512, then the "control word" for this subroutine is also in position 
n, but in the second half of the dictionary* The control word consists of 
12 octal digits 

c5 °P PPP °A 00000 , where 

1— 1 

o> PPPP * 6 *&* number of blocks of tape in MT Unit 

1 

o 

§. measured from its start which must be traversed to get to the start of the 

1— < 

r*- 

x 8ubroutine 9 

-a. 

0364 g £pppp<2047 8 ) 
qq is the number of blocks in the subroutine, 01=qq=20g. 

If a subroutine is more than 20g blocks in length it is re- 
garded as two or more separate routines, each with its own "tag words" 
and "index". 9_84 
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As an example, the control word 01 24603 00000 calls for a 
routine which starts after 1246 blocks of tape have been counted and 
which is 3 blocks long. The subroutine therefore occupies blocks 1247, 1250, 
and 1251, (octal) 

The input tape lists the subroutines which are to be used in 
a main routine together with information r egarding assembly modification 
and desired storage locations* The programmer must provide three pieces 
of information for each subroutine to be assembled* 

The exact format of this information depends on whether the 
routine is assembly modifiable* 

1*} For an assembly modifiable routines 

a) Routine Index 

b) An assembly modification address; i*e* the first oper- 
ating location of the subroutine* 

c) A storage address; i.e. the address where the first 
word of the subroutine is to be stored* 

2*) For a subroutine which is not assembly modifiable, (l*e* the 
subroutine is written with a fixed operating location 
or is written relative to H*S*S* location 01000 but is 
not in "standard form")* 
a) Routine Index 



o- b) Fixed operating address (i*e* the first address of the 

routine*) 
c) A storage address 
A maximum of 16 subroutines can be assembled with one application 
of the Library Routine* Care must be taken not to store two routines in 
the same location, since all subroutines are assembled and stored before 

9-85 
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any of them are punched. If the operator desires to store more than 
one subroutine at the same location, he must use the library routine 
more than once and must have, a "separate" routine list for each applica- 
tion of this routine* (The tape need not be separated literally, but 
must have the proper "terminating signal" between each routine list.) 

At the conclusion of each routine list is a period* This tells 
the machine that all input Information has been received and transfers 
operation to the next part of the routine* If more than 16 subroutines 
are called for without a period, the input tape is automatically stopped 
after r eading in 16 Indices, and the computer halts after assembling 
the 16 subroutines* Push start button to assemble the remaining sub- 
routine s. 

The exact format of the tape Is best illustrated by a n example i 
Six subroutines are to be assembled* The subroutine library 
representation and Central Exchange Humbers of these subroutinee ares 

1) rt-fOl (RR 59) 

2) op-100 («V 1) 

3) do-xOl (BE 4?) 

4) al-prl (CV 3) 

5) ip-p01 (Ra 10 ) 

6) rt-xOl IR&-21) 

£§ In the above list, routines 1, 3# and 6 are written relative to 

i— 1 

^ H*S*S* address 01000* Routine 5 is so written on tape as to be assembly 

i 

© 

§ modifiable* Routines 2 and 4 operate from fixed locations* 

r-H 

^ These routines are to be operated on as follows s 

1) rt-fol modified relative to 1300 and stored beginning at 51000. 

2) cp-100 has fixed operating location 00040 but is to be stored 
at 42100. 

9-86 
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rt-fOl 


0130Q 


cp-100 


00040 


do-ocOl 


01000 


al-prl 


75700 


IprpOl 


01000 


rt-xOl 


01272 



3) do-xOl is not to be modified but is to be stored at 66300* 

4) al-prl has fixed operating location 75700 and is to be 
stored there* 

5) ip-pOl is not to be modified but is stored at 41000* 

6) rt-xOl is to be modified relative to 01272 but is to be 
stored at 00300* 

The information needed on the input tape consists of the following 
in flex oodet 

51000 
42100 
66300 
75700 
41000 
00300 
The following general rules are noted! 

1) Three pieces of information are needed for each subroutine* 
2} If a "standard* assembly modifiable routine is not to be 
modified, the address 01000 is the first address lieted| 
otherwise the starting address is given* 

3) The first address for a routine which has a fixed operating 
location is the fixed operating location* 

4) The first address for a routine written r elatlve to 01000 but 
which is not in "standard form 1 * (and hence is not modifiable) 
is 01000* 

5) The second address is always the first address at which the 
subroutine is to be stored* 

6) An assembly modifiable routine may be modified relative 
to any H*S*S* or drum address* 
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3) A routine may be stored anywhere In H.S.S, or on the drum. 

Care must be taken net to store more than one subroutine in 

the same location. 
In preparing the input flex tape, the following rules should be 
observed! 

1) There must be at least one space between the two letters and 
the three (or more) digits of the library index. 

2) There must be at least one space between the library index and 
the first address and between the first and second addresses,, 

3) There must be a carriage return after the second address. 

A) Following the carriage return at the end of the last subroutine 

information there must be a period. 
5) The library routine ignores extra spaces, code deletes and 

leader on the input tape. 

Typed Lists of Subroutines 

As the library routine is operating on subroutines taken off 
magnetic tape, it types out information for later reference. 

1) If the subroutine is modifiable and has been modified, the 
following is typef i 
^ a) SL03 library Index 

vO 

-. b) Bomber of Words Number of Modifiable Words 

I 

^ c) MOD aaaaa 

o 

p d) bbbbb cccce 

x 

& where t aaaaa is the starting address 

bbbbb is the first storage address 

occco is the last storage address 
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2) If the subroutine is modifiable but has not been modified, the 
same information is typed as in 1 (except that c) is "HOT 
MODIFIED". 

3) If the subroutine has a fixed operating location the following 
is typed? 

a) 1103 Library Index 

b) ddddd eeeee 
o) bbbbb ccecc 

where s ddddd is the first operating location 

eeeee is the last operating location 

bbbbb and ccecc are as in 1 
In the example previously discussed the following would be typed 
(although not necessarily in this order)* r 
rt-fOl 



00056 


00050 


mod 


01300 


$1000 


51055, 


op-100 




OOQp 


00077 


42100 


42137 


do-xOl 




00202 


00160 


not modified 


66300 


66501 


al prl 




75700 


75643 


75700 


75643 
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00422 


00421 


not modified 


01000 


0U21 


rt-xOl 




00047 


00040 


mod 


01272 


00300 


00350 



The programmer may quickly scan this list to see if the proper sub- 
routines were assembled and if there is any overlap in storage* 

The library routine detects certain errors during the course of 

its operation. These errors are Indicated by typewritten symbols* After 

encountering one of the errors described below* the machine stops* In most 

cases, several options are available to the operator* as outlined below* 

1* n a2 K - cheek sum failure on transfer of the library routine 

to BSS* MT Unit is backed to the beginning of the Library 

Routine Press Start to retransfer routine* 

2* n cl n - check sum failure on transfer of the first half of the 

dictionary to H*S*S* The magnetic tape is backed to the 

C beginning of the dictionary* 

o a) To retransfer first half of dictionary! Press STAR| 

& 

£ b) To ignore check sum failures set PAff to 00600 and START 

flu 

3« n R n - a non-existent index has been read into the machine* 

Press 21£&X* The non-existent index is ignored* and the program 

continues* 

4* n C2 n - check sum failure on transfer of second half of dictionary 

9-90 
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into H.3.S. The magnetic tape is backed to the beginning of 
the second half of the dictionary. 

a) To retransfer second half of dictionary! Press gTART 

b) To ignore check sum failure t Set fAK to 00602 and STAflJ 

5. "C3 n - check sum failure on transfer of subroutine from library 
to H.S.S, The magnetic tape is backed to the start of the 
subroutine. 

a) To retransfer subroutine i Press START 

b) To iransf er next subroutine (or to proceed with program if 
failure was on last subroutine)* 

s>t PAK fr> QQ6Q4 tad s&B£ 

c) To ignore sheck sum failure t Set P ftK to 00606 and START 

6. "C4" - The address portion of the input flex tape is incorrect 
(e.g. lees than five octal digits, a character is used other 
than 0, . . ., 7). Press SyARy to bring in next index (or 
continue program). 

If an error is indicated (other than "CI"), one of the subroutines 
dees not get assembled. A look at the typed list of subroutines determines 
which subroutine is missing. 

Operating Instructions 

cS 1) Prepare a flex tape which calls for the subroutines wanted and 

<> which provides information on assembly modification and storage c 

o 

o This tape may be spliced onto the end of input tape used for 

x: REC0 II when both routines are to be used in succession (See 

a. 

discussion of this in the REC0 II write-up). If this routine 
is to be used alone, only the subroutine flex tape is needed, 
(For information on this input flex tape see the section "Input 
Tape Format"). 
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Subroutines Currently 

a* Constant Pool 

b. Alarm Print 

e* Card Package 

d. Interpretive System, unpacked 

e* Interpretive System, packed 

f • Dscimal Output Floating Point 

g. Decimal Output Fixed Point 

A, Square Root Floating Point 

i. Square Root Fixed Point 

J. •*, Fixed Point 

k, e x , Floating Point 

1. Arcsin/cos x, Floating Point 

m« Arctan x 9 Floating Point 

n* Sin ^2, cos y2 x, Fixed Point 

o« Sin x, cos x, Fixed Point 

p* Arctan x, Fixed Point 

q. Sin^2, oo*T2 x, Floating Point 



As more subroutines are put in the library, supplements to this list will 
be issued from time to tine* 



on Magnetic Tape 




Central SKChanjfe IrrffX 


Library Code 


CV-1 


cp-lOO 


CV-3 


al-prl 


CV-37 


cg-100 


RIU-10 


ip-pOl 


RR-10 


ip-pOl 


RR-20 


do-fOl 


m-w 


do-xOl 


RR-59 


rt-fOl 


R&-21 


rt-xOl 


Hone 


ex-xOl 


RR-68 


ex-fOl 


BR-75 


tg-»f20 


HR-74 


tg-f*0 


RR-24 


tg-xlO 


Bone 


tg-odl 


RR-26 


tg-x40 


RR">62 


tg-flO 



bpj 
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2) Turn ON PUNCH and TIPEWRItER 

3) BE SURE MT UNIT is ON 

U) Set Jump Switch #1 if a flex tape of the subroutines is 
NOT desiredo 

5) If RECO II is not used, set PAK to 70011 and SJ&RTo If RECO II 
is used, this routine will start automatically after completion 
of RECO II. 

6) If an alarm »C1«, »C2", '•03% "C4", or »R» is typed, the 
machine stops. For a choice of procedures, see the discussion 
of "ERROR DETECTION - ALARMS". In any case pressing the START 
will cause the Library Routine to continue; however, a subroutine- 
may be omitted. 

7) The routine halts at 56 00000 70011 

8) To repeat the library routine, press START after the 56 stop 
NOTE i If a period is inadvertently omitted at the conclusion of 

of a Routine List, Force Stop Computer after Input Tape has 
completely passed through reader set PAK tor>0052 and STARXo 
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THE 1103 MULTIPLE REGRESSION AND CORRELATION PROGRAM 

General Description 

There is now available to Univac Scientific (ERA 1103) 
users and service bureau customers a library program for 
multiple correlation (regression) analysis. The program will 
handle up to m=30 variables (including the dependent) and up 
to n=400 observations of each. The output, on punched cards, 
is: 

1. The identification number of each variable used. 

2. The mean of each variable used. 

3. The standard deviation of each variable used. 
(Based on n-1 degrees of freedom. ) 

h. The normalized regression coefficients 

(regression coefficients for each variable 
reduced to standard units). 

5. The ordinary regression coefficients. 

6. The simple correlation coefficients. 

7. The partial correlation coefficients involving 
the dependent variable. (The remaining partial 
correlation coefficients may be obtained if 

p desired. ) 

CM 

r— i 

Y 8. The inverse of the correlation matrix (optional). 

g 9. The square of the multiple correlation 

coefficient, the standard error of estimate 
(based on n-m degrees of freedom), and the 
constant term in the regression equation. 

-1- 
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10. (Optional) The back solution, in which the 
regression equation just computed is used to 
predict a value of the dependent variable for 
each observation. The output consists of a 
card for each observation containing: 

a. The number of the observation and 
the identification number of the 
dependent variable. 

b. The predicted value of the dependent 
variable. 

c. The observed value of the dependent 
variable. 

d. The difference (b-c). 
Optional items may be obtained by making manual jump 

selections on the computer console. 

There is also available a program for the back solu- 
tion (10 above) in the event that the regression equation is 
already known and no correlation analysis is desired. In this 
program, the output is as follows, with the numbers having the 
same significance as above: 

1. Identification of variables used. 
™ ' 5. As before. (Reprint of input to avoid error 

T or ambiguity. ) 

© 
o 

% 9. As before (same). 

£ 10. As before. 

The programs are designed to make good use of the 
great facility of the 1103 for this type of computation. Also, 
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they offer a number of special features, in addition to those 
listed above, that make them very flexible and economical. 
For these reasons they are extremely fast and- will give more 
information at less cost than any other library program up to 
the maximum size of problem they will handle. 
The Nature of the Problem 

It frequently happens that a dependent variable, y 
or xi, can be considered to be a linear function of a number 
of independent variables, x 2 , x 3 , . . .. x m . Then: 

(1) y* . xx* « a Q + X a jXj 

where y* = x x * is an estimate of y (or xi). 
This implies that the effect of each x on y is linear and 
independent of the levels of the other variables. However, 
when this is not the case, it is often possible to make a more 
realistic mathematical model of the situation and with little 
or no distortion to apply a transformation that will linearize 
it to the above form. When this is done, the x's will not 
generally be the directly measured experimental quantities but 
functions of them, or functions of groups of them, thus account 
ing for nonlinearity and interaction effects. 

£3 The multiple correlation problem proper begins when 

— 1 

dL the functions for the x's have been chosen so that an equation 

o 

§. in the form of (l) has been arrived at and when there are 

x available n observations, n>m, in each of which values of all 

variables have been measured. The problem is then to choose a 

set of values for the coefficients, "a," that will best fit all 

the data points. 
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This problem is solved with the most computational ease by- 
classical least-squares fitting, which defines a as 

m 

(2) ao » xi - 21 a 1 x 1 

J-2 J J 

and determines values for the regression coefficients a 2 , a 3 , 

. . . a . Certain other statistics are also computed which 
m r 

indicate how well in general the model has succeeded in 
representing the effects of the variables and predicting the 
values of Xi, and to what extent the effect of each variable 
is numerically important, statistically significant, and 
successfully represented by the model chosen, Equation (l). 
Notation 

Let y = xi be the dependent variable. Let x 2 , X3, 
. . . x m be the independent variables. Let the index i or j 
designate the number of the variable: 
i m 1 (l) . . . m 
j « 2 (1) . . . m 
where m is the total number of variables, including the 
dependent variable. 

In general, the term "the xj's" will refer to the 
variables x 2 to x m , but not to Xi or y. 

Let the index h refer to the run, or observation, 



© number: 

o 
o 



h « 1 (1) . . . n 
°* where n is the total number of observations of each variable. 
(For the case of micsing observations, see the section "Special 
Features.") Thus x ni is the value of the i'th variable 
observed in run number h. 
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Other conventions of notation will be defined as they 
are used. 
The Method of Computation 

In the 1105 program, the mean of each variable, x±, 

is first computed; 

n 



(3) *i "h^M. 



n 
The standard deviation, based on n-1 degrees of free- 
dom, is then computed for each variable by: 



w H-JE& 



2 — ,~ 

x hi ** x i 2 h x hi 



j/"n-l 
where Z.^ designates summation over all runs with the square 
roots being taken separately by the computer, and the other 
arithmetic operations performed as indicated here. 

The simple correlation coefficients between all pairs 
of variables are then computed by: 

(5) r 15 = Xh*hi*h,1 - *l£hXhJ 

^ h x hi ' x i Vhi |/ Zx gj " x j Z h x hj 

The above computations are all computed in fixed 
£J binary with precision to full single-word capacity being 

I 

T retained. The simple correlation coefficients are stored on 

o 
o 

£ the drum fo-jp printing out and then converted to normalized 
£ floating binary, mantissa 27 bits plus sign bit. 

The matrix of simple correlation coefficients, 
R = (r ± j) is then inverted, in floating binary. In the array 
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of this matrix > the correlation coefficients involving the 
dependent variable, Xi, that is, the r^ coefficients, are in 
Row 1 and Column 1, The inversion is accomplished by a direct 
elimination without any permutation of rows and columns. R is 
symmetrical, and the inverse is forced to be symmetrical, 
regardless of round-off error, by computing only the diagonal 
and one triangle and assuming that the other triangle will be 
the mirror image. The inverse so computed is Qi . Qk = R"* 1 * 
where R" 1 is identically equal to the inverse of R and Q k is 
the k-th approximation of R"" 1 . Qi, the first approximation, is 
then reconverted to fixed binary. 

Unless R is badly conditioned, round-off error will 
be small, but the inverse is in any event improved by the 
formula 

(6) Q k+1 - Q k (2 - RQ k ) 

somewhat modified. Here 2 is the diagonal 2 matrix. The modi- 
fication of the above formula consists of the fact that Qk+i is 
also forced to be symmetrical as was Qi. Although Q k and R are 
both symmetrical, RQ k , and consequently (2 - RQk)> are not 
necessarily symmetrical; and, indeed, the full square matrix is 
computed. When this square matrix is multiplied by Q k , however, 

2 only one triangle of the product matrix, Qk+i> is computed, 
i 

T In this improvement scheme, the square matrix (2-RQ k ), 

o 
o 

S which will be approximately the unit matrix, is computed in the 
£ first half of each iteration cycle. The sum of the absolute 
vali.es of 1 minus each diagonal element of this matrix is then 
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compared with the corresponding sum obtained for the matrix 
(2-RQj <>1 ) 9 (On the first cycle, it is compared to a very large 
arbitrary number • ) If this value is larger than for the pre- 
vious iteration, the improvement method is assumed not to be 
converging on the true inverse. If it is smaller, the second 
half of the iteration cycle is performed by multiplying the 
square matrix (2-RQ k ) by the matrix Q k to form the (arbitrarily) 
symmetrical matrix Q^^. The same value, 
m 



& t 1 • °Vii] 



is then compared with a "tolerance" number to see if Q k was a 

sufficiently close approximation to R-i. This tolerance number 

is established by multiplying an arbitrary small number by the 

number of diagonal elements in RQ; when the sum of absolute 

values by the above formula is smaller than this product, (<5i c ) i1 

will, on the average, equal rT^ to five or six correct decimal 

digits to the right of the decimal point. At this time, however, 

Q^. , a still better approximation of R-i, has already been 

computed and will be used as the final approximation. 

If, on the other hand, the above test shows that the 

sum of absolute values of 1 minus each diagonal element of 

(2-RQ k ) increases from one cycle to the next, the original 

inverse, Qi, is then taken as the best approximation of R" 1 ; 
i 

^ and the problem can be finished using this, the typewriter 

o 

£ indicating that this has occurred. Space is left in the program 
°- for a section of code (to be written if experience proves it 
desirable) that will apply a more powerful improvement scheme 
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on failure of the above scheme to converge. The alternate 
scheme would be Q^^ = Q^fRQ^)"" 1 , which is slower but which 
will always converge, unless R or Qi is singular. 

The improved inverse (or the unimproved inverse, if 
the improvement scheme has failed to converge) is then used to 
compute the square of the multiple correlation coefficient, the 
standard error of estimate, the normalized regression coeffi- 
cients, the regular regression coefficients, and the partial 
correlation coefficients. 

The square of the multiple correlation coefficient is 
computed by: 

(7) (ri. 2 ,3,... m ) a - 1 - 1/qn 
(qy is the best approximation of r Jj ) 

The standard error of estimate, s e , based on n-m 
degrees of freedom, is then computed by: 

(8) s e - 



si j n-1 

mrx i n - m 



since si was based on n-1 degrees of freedom. 

The normalized regression coefficients (regression 
coefficients expressed in standard units) are computed by: 
(9) bj - r QlJ / qil 
£J The regular regression coefficients (the a^'s of 

T Equation l) are computed by: 
| (10) aj - bj(sx/sj) 

£ The partial correlation coefficients, pjj, are 

computed by: 
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(U) p = __^J 

fail KQjj 

Finally, the constant term in the regression equation, 
the a of Equation 1, is computed by applying Equations. This 
completes the regression analysis proper, but if a back solution 
is desired, Equation 1 is then applied to each of the n observa- 
tions to compute an estimated value of y for each run. 
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Special Features 

The 1103 multiple correlation routine has a number 
of special features designed to make the program unusually use- 
ful, flexible, and economical of machine time. Some, such as 
listing the normalized regression coefficients and the use of 
a matrix inversion routine tailored specifically for this 
problem, are fixed parts of the code, but others are optional 
and under the control of the operator. The latter are listed 
here. 

• 1# Independent Variables on Magnetic Tape 

In some types of problems, a single set of independent 
variables may be used with a number of different dependent 
variables. In this case, the use of each new dependent variable 
constitutes an entire new problem, but important amounts of 
read- in time can be saved by writing the Independent variables, 
the x/s, on magnetic tape on the first problem and reading them 
from this tape in subsequent problems. The program is so 
designed that selecting MJ No. 1 will write the x^'s on Tape 
Unit 2 as they are read in from cards. Also, it is possible in 
any run to read the Xj's either from cards or from Tape Unit 2. 
The y's are always read in from cards and are never written on 
tape. When the Xj's are written on tape, they are summed, and 
£» the sum is written as the last block of data on the tape. When 

<* they are read from tape, they are summed again, and the sum is 

o 

o 

£ compared with that written on the tape; if there is a discrepancy, 
g the on-line typewriter types out "Tape sum no good," or a suita- 
ble abbreviation thereof. Unless otherwise indicated by the 
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typewriter, the X-.'s can be assumed to be correctly read in 
from MT 2. 

2. Elimination of Undesired Variables 

The results of the correlation analysis may show that 
the effects of certain independent variables on the dependent 
variable are statistically insignificant or numerically 
unimportant. It may then be desired to rerun the correlation 
excluding these variables. This is easily done in the program 
whether the Xj's are read in from cards or from tape. 

When all data are to be read in from cards, a con- 
trol card is used bearing the numbers m and n. Omission of an 
undesired variable can be accomplished simply by omitting the 
corresponding deck of data cards and using a new control card 
with the altered value of m. 

When the X-t's are to be read in from tape and only 
Xi from cards, the control deck consists of a card bearing the 
number of variables to be omitted, followed by as many cards 
as there are variables to be omitted, each bearing the code 
number of one x^ to omit. When no variables are to be omitted, 
the control deck consists of one blank card. In reading from 
tape, the machine reads all the observations of one Xj, sums 

5 them, and then scans the list of variables to be omitted to see 

»— i 

6 whether "to reject this x*. In any case, the sum is retained, 

8 

§ so that the sum check on the tape reading is preserved. 

t- 

£ 5. Treatment of Missing Observations 

No missing observations among the independent varia- 
bles are permitted. If a run does not contain a full set of 

11- 

9-105 



RR-127 



observations, it should either be rejected or reasonable values 
for the missing observations should be estimated. However, 
when a single set of independent variables is used with a 
number of different dependent variables, it often happens that 
the sets of observations of some of the dependent variables are 
not complete. In this case, the runs with missing observations 
.are rejected, but it is convenient to let the machine do this 
rejecting so that it can always be fed the same set of data for 
the independent variables. This is done by representing each 
missing observation on the deck of y's by -0. The machine will 
scan the observations of y (but not of the Xj's) looking for 
-0. (Plus is a legitimate observation whose value happens to 
be zero and will be treated normally. ) When it finds a -0 for 
a y n it changes it to normal zero, it sets all the corresponding 
observations x^j equal to zero, and it subtracts one from the 
value of n. The effect in the main part of the problem is as if 
that run had never been included in the data. 

When the back solution is run with the data still in 
the machine, y*> the predicted value of the dependent variable 
for a missing observation, is a Q , since y* is computed by 
^ Equation 1 and all the x K ,'s have been set to zero. The 

CM 

£ observed value is listed out as +0. 

i 

o When the back solution is run later, as a separate 

o 
o 

£ problem, the tally program that rejects missing observations 

x 

°" does not operate. In this case, y* assumes the value dictated 

r 

by Equation 1 for the set of values x n j and for the previously 
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computed a-j's. The observed value of y^ is listed as it was 
punched, -0. 

4. Typing of the Square of the Multiple 
Correlation Coefficient 

It is sometimes convenient to test different func- 
tional representations of the dependent variable (y=v, y=log v, 
y=*e v , etc., where v is the quantity directly measured) against 
the same set of independent variables. In this case, the choice 
of functions for best fit can often be made solely on the value 

of the multiple correlation coefficient. The square of the 

i 
multiple correlation coefficient is therefore typed out as soon 

as it is computed so that the machine can be stopped and the 

problem abandoned at this point if desired. This number is 

also listed on cards with the normal output of the program. 

5. Suppression of Most of the Partial 
Correlation Coefficients 

In many problems, the only partial correlation 
coefficients of interest are those between the dependent varia- 
ble and the independent variables, that is, p 1J -. The partial 
correlation coefficients of the independent variables with each 
other (pij> i ft l) are usually of interest only when a new 
mathematical model for the regression relationship is being 
tested. Therefore, to save time, the program normally computes 
© only the partials Pj-j. However, if the remaining partials are 
desired, they will be. computed and listed out if manual jump 
selection No. 2 is made. The time required will be about one 
second for each ten additional partials. 
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6. Suppression of Listing the Inverse Matrix 

In many routine problems, the inverse of the corre- 
lation matrix is not of particular interest, and considerable 
time is saved by not listing it out. Therefore, the program 
will compute but not normally list out the inverse. However, 
when it is desired to see the inverse, it will be listed out 
by selecting the manual selective jump No. 3. 

7. Optional Back Solution 

After completion of the correlation problem proper, 
the machine will stop on a 56 00000 00^30 command. If it Is 
known at this time that a back solution is wanted, one will be 
obtained simply by pushing the start button. If this option 
is not exercised, and it is decided at some later time that a 
back solution is wanted, another program will permit computa- 
tion of the back solution without repeating unnecessary parts 
of the correlation problem. A new code Is read in; the same 
input is read in (with the x^'s either on cards or magnetic 
tape and the y's on cards) with the same control decks; and part 
of the card output of the correlation problem (the deck bearing 
the a's and the card bearing a Q ) is also read in following the 

y's. 
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Machine Times 

To date, two runs have been made in which accurate 
Riming was recorded. Both were made on Univac Scientific 
Serial No. 9 at St. Paul, a magnetic core machine. The approxi- 
mate formulas for computing machine time were derived from these 
two runs. 

The first run consisted of a set of 16 problems run 
consecutively with the same set of independent variables. All 
short cuts were employed: the x's were read-in from magnetic 
tape, only the partials involving the dependent variable were 
computed, the inverse was not punched out, and no back solutions 
were obtained. The size of each problem was 17 variables, 91 
observations. The average time per problem was one minute and 
46 seconds, exclusive of code read-in time. Code read-in 
takes 50 seconds and, of course, need be done only once for any 
set of problems to be run at one time. 

The second problem timed was one of 30 variables, the 
maximum number, and 95 observations. Prom the timing of this 
problem, times for the maximum case, 30 variables and 400 
observations, can be closely estimated. The times quoted below 
for Sections 1, 2, and 6 are so estimated; those for Sections 
3, 4, and 5 will be unchanged from those actually measured. 
All times are exclusive of code read-in time. 
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Maximum Case MIn Sec 

1. Read all data from cards 

2. Means, standard deviation, r's 

3. Invert matrix 

4. Improve inverse 

5. Punch Decks 1 through 9 (full) 

6. Back solution - calc and punched 
Total - No Shortcuts 

When the short cuts are used, the times will be about 

as follows for the maximum case: 

Maximum Case Min Sec 

la Read x's from tape, 

y's from cards 1 5 

5a Punch Decks 1-9 omitting Deck 

8 and most of partlals 50 

6a .... Omit back solution jO 

Total - All Shortcuts 8 50 one imp, 

cycle 

Times for running problems of various sizes may be 

estimated from the following approximate formulas: 

1. Reading all data from cards. 

5 + {0.5)(m)(u+l) seconds 

£; where u is the number of cards required for n observations, at 

r— I 

oL 12 to the card. This includes a fixed time of about 3.5 seconds 

i 

o 

§. for computing constants and typing the code and input sums and 

h- 

x of 1.5 seconds for advancing the read cards and reading the 

cu 

control card. 
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la. Reading x's from cards, y's from tape. 

5 + (0.5)(u+c) + (0.1) \(m-l)(v) + 2~] seconds 
where u is as above, c is the number of cards in the control 
deck, and v is the number of 32 word blocks required for n 
observations. This includes start -stop and computing time 
during the tape read-in. 

2. Means, standard deviations, simple correlation 
coefficients. 

(0.012)(m)(n) seconds 
This is quite rough, as there is a time involved that depends 
only on m and also one that depends on m 2 n. 

3. Invert matrix. 

(0.0091 )(m 3 ) seconds 

4. Improve inverse. 

(0.0013) (m 3 ) seconds per cycle 
5* Compute and punch out Decks 1-9, full. 
(0.0044)(m 2 ) seconds for computing 
(0.25) (m) + (0.13) (m 2 ) + 3 seconds for punching 
A more accurate estimate of card punching time can be made by 
computing the number of cards to be punched, from the informa- 
tion in M Gard Output," and allowing 0.5 second per card. 

5a. Optionally omitting partials not involving 
dependent variable and/or punch-out of 



1 

^ inverse matrix. 

o 



(0.030) (m 2 ) seconds saved by omitting 
extra partials 

(O.058) (m 2 ) seconds saved by omitting 
inverse 
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Again a more accurate estimate can be made by computing the 
exact number of cards saved. 
6. Back solution. 

(0.0013) (m-l) (n) seconds for computing 
(0.5)(n) + 1 seconds for punching 
It is expected that these times will compare favorably 
with those of any existing multiple regression and correlation 
program. 



-18- 

9-112 



RR-127 



Input - Output 
Scaling 

All input data should be scaled so that the five most 
significant digits are to the left of the decimal point, as the 
input is in the form of integers of five digits or less. It is 
desirable, but not absolutely necessary, that the observations 
of a given variable be scaled so that the largest (in absolute 
magnitude) has its leading significant digit appearing in the 
fifth place to the left of the decimal. However, if conveni- 
ence dictates, all the observations of a variable considered 
as five digit integers may contain zeros in the leading (or 
possibly even the leading two) digits. There is danger, how- 
ever, that if the dependent and independent variables are 
scaled to give numbers of very dissimilar magnitudes, considered 
as integers, some of the regression coefficients may be so small 
as to lose some significant figures or so large that they over- 
flow, in which case the problem must be rescaled to be run. It 
is therefore recommended that each variable be scaled so that 
the largest observation encountered (or likely to be encountered 
in subsequent problems) have its leading significant digit in 
2 the fifth place to the left of the decimal. The variables so 

<* scaled are now the input variables for the problem, as far as 

© 

o 

<5 the machine is concerned, and the output will come out scaled 

i- ■ . 

g accordingly and correctly pointed off with actual printed 
decimal points. 



h- 
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Paper Tape Input 

The instruction code for the correlation program, 
with optional back solution, is contained on a single roll of 
paper tape, requiring about 50 seconds to read. The code for 
the back solution alone (correlation done previously) is on a 
shorter single roll. Both codes are completely self-contained 
and need no other routines or subroutines except to load them. 
Both are in bioctal code, and both may be read with either an 
ERA or a Ferranti reader. The Perranti Load Routine RW 63, 
operating from 75170 to 75337, has been used. The code 
occupies drum addresses 40000 through 43000 and 77074 through 
77777; a load routine must be used that permits loading to 
these addresses. 

Card Inpu t 

The input data are read into the machine on cards. 
As stated before, if one set of independent variables is to be 
used for a number of problems, it may be written on magnetic 
tape as it is read in from cards initially, and in subsequent 
problems only the dependent variables need be read in from 
cards. In either case, a control deck is first read in, 
followed immediately by a deck of cards for each variable. 
p Tb' „ latter decks have the following format- There are 13 

CM 

Y fields on each card, starting in Column 3* each of five columns 

§ followed by a sign column. The first field contains the code 

o 

^ number which identifies the variable. This code number may be 

X 

any integer of five digits or less, except that code numbers 
for dependent variables should be positive. The following 12 
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fields of the first card in the deck contain the first 12 
observations of that variable, the corresponding 12 fields of 
the second card the next 12 observations of that variable, etc. 
The observations are expressed as five digit numbers (see 
"Scaling") followed by a blank column if the number is positive 
or a column containing only an x (11) punch if the number is 
negative. It Is not necessary to punch all columns of the card, 
but any blank column excspt the sign columns wil be inter- 
preted by the 1105 as a zero; thus any zero in *,ny data word 
may be either punched or left blank. Unless the number of 
observations is an even multiple of 12, the last card in each 
deck will not be filled; in this case the remaining fields may 
be left blank or used for any other purpose, as it will make 
no different at all what is in them. Since it is imperative 
that all the cards in each deck remain in the proper order, 
the first two columns on the card, which are hot read by the 
1103, should contain the number of the card in the deck for 
sorting purposes in case of mixup. 

There must be a full set of observations for all 
independent variables, as any blank space will be interpreted 
an observation of value zero. However, when a number, of 
dependent variables are run with one set of independent varia- 
§ bles, there may be missing observations in the dependent 

variable. These should be designated by a minus zero (a field 
of blank or zero columns followed by an x punch in the sign 
column) in the proper place on the card. A plus zero or 
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completely blank field will be interpreted as a legitimate 
observation of value zero. The machine will distinguish 
between minus zero and zero only in the dependent variables; a 
minus zero in an independent variable will be interpreted as an 
ordinary zero. When a dependent variable with certain observa- 
tions missing is used in a given problem with a full set of 
independent variables, "n," the number of observations for the 
control card (see below) is taken as the full number of 
observations of the Independent variables. The machine will 
scan the list of observations of the dependent variables for 
minus zeros, strike out the corresponding observations of the 
independent variables, and subtract 1 from "n M for every missing 
observation. 

When all data are to be read from cards, the control 
deck consists of a single card with "m" the number of variables 
punched in Columns 10 and 11, and "n" the number of observations 
punched in Columns l*f, 15,. and 16. It will make no difference 
what else, if anything, is on the card from Column 18 on. This 
control card is immediately followed by the decks for the 
independent variables, which are again immediately followed by 
P the deck for the dependent variable. It is necessary that the 

CM 

i— 1 

Y dependent variable be read in last (even though it will be 

o 
i 

o treated as the first variable in the matrix and will assume the 

o 

*"" leading position once in the drum memory), as that is the only 
a. 

identification of it as being dependent. The independent 

variables, however, may be read in in any order, so long as the 

cards within each deck remain in order. The first output from 
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the problem will consist of the identification numbers of all 
ttfte variables, starting with the dependent variable and 
followed by the independent variables in the order which they 
were entered; subsequent output will follow the same order, 
so that the order in which the independent variables are 
entered will be recorded and preserved in the output. 

When the independent variables are to be read from 
magnetic tape, the first card in the control deck will contain, 
in Columns 1 and 2, the number of variables to be omitted, in 
case it is not desired to use all the variables in the corre- 
lation. (If none are to be omitted, a single blank card will 
serve as the ^control deck. ) This card will be followed by as 
many cards as there are variables to be omitted, each card 
bearing the code number of a variable to be omitted (in any 
order) in Columns 3 through 7> with Column 8 as a sign column. 
For example, if the code number of a variable to be omitted is 1 
13, this number will be punched in Columns 6 and 7; if it is 
minus 987^5* 987^5- will be punched in Columns 3 through 8. 
The machine will not read anything on these cards from Column 9 
on. fhis control deck will be immediately followed by the deck 
£ of observations of the dependent variable; This system is used 
because when a set of independent variables is already on tape, 
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o 

g there is also on tape m and n for the general case: all 



o 



a, 



variables used, all observations present. The control deck 
will cause m to be adjusted for the particular problem, and 
minus zeros in the dependent variable observations will cause 
n to be adjusted. 
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In any problem in which cards are used as input, it 
is necessary that at least three blank cards follow the last 
card to be read. If several problems are to be run at once, 
two blank cards must follow each problem and at least three 
must follow tho last problem. In some cases it is desirable 
to run a number of problems at a time, each with a different 
dependent variable but a LI with the same set of independent 
variables. In thi3 evert, all data are read frcm cards for 
the first problem, with exactly two blank cards following the 
deck for the dependent variable. Then follows the control 
deck (which may be one blank card) for the second problem, 
Immediately followed by the dependent variables, followed by 
two blank cards, etc. In this way, all the problems can be 
loaded at once with no card handling on the Input side after 
the machine has started. The Independent variables, of course, 
are written on tape during the first problem and are read from 
tape in subsequent problems. 

When the correlations have already been done and 
only a back solution is required, the independent variables 
may be read in from either tape or cards as In the correlation 
problem. The control decks and the card input for the varia- 
^ bles are exactly as before. The deck for the dependent varia- 
J ble is followed in this case by a deck bearing the regression 
§ coefficients, a,, (deck 5 of the output) and then by a card 
^ bearing (among other things) the constant term in Equation (l), 
a Q , (deck 9 of the output). Again, this card is followed by 
at least three blanks, or exactly two blanks if another problem 
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is to follow immediately. These decks 5 and 9 will ordinarily 
be the identical cards produced by the machine when the 
correlation phase of the problem was performed; their format 
will be described under "Card Output." 
Typewriter Output 

Although the bulk of the output is on cards, the 
typewriter is used to some extent as a monitor as the problem 
runs. 

The first act of the machine in starting the problem 
is to sum the code on the drum and write the sum on the type- 
writer. It would not be advisable until experience has 
demonstrated conclusively that no more changes in the code are 
desirable to quote this sum here or to build in an automatic 
check. In the meantime, the fact that the code is properly in 
the machine can be verified by the appearance of a familiar 
number as the first line of typewriter output. 

The second possible item of typewriter output will 
appear only if the independent variables are read in from tape 
and if their sum as read in fails to agree with their sum 
written on the tape. In that event, there will appear on the 
next line "tape sum no good" or a suitable abbreviation thereof. 
P (All variables on the tape are summed as read, whether or not 

CM ^ 

i— i 

V the control deck indicates they are to be used in this problem, 

o 
i 

© so the sum should always be the same.) If this appears, the 



x 

O, 



machine will stop on a 56 00000 40576 command Pushing the 
start button will cause it to attempt to read the tape again; 
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a failure repeated several times will indicate mechanical 
difficulty in the tape or in the reading circuits. 

The next item of typewriter output, on the following 
line, will be the sum of all input data, including the 
dependent variables. This will normally vary from problem to 
problem and aside from inspection of the general magnitude will 
serve as a useful check only when difficulty is suspected and 
it is desired to repeat the problem and test for trouble. 
However if only the back solution is to be run, this input sum 
should check that written out in the correlation phase of the 
problem. 

The next item of typewriter output, on the following 
line, will be the letter i written one or more times. Each i 
signifies the completion of the first half of a cycle in the 
improvement scheme for the inverse matrix. If the improvement 
scheme converges, the carriage will return and the typewriter 
will print the next output. If it diverges, it will write, 
on the same line, "diverges, set mj 2,3» go," after which the 
machine will stop on a 56 00000 00122. Pushing the start 
button will bring back the original inverse as it was before 
S the start of the improvement scheme, and the machine will 

cp continue the problem using that. However, in case of divergence 

o 

o 

£ it is likely that the user will want full information to indi- 

r- 

>< cate why this occurred. The "set mj 2,3" is a reminder to set 
these manually selected jumps, if they are not already set, 
before pushing the start button if it is desired to see the 
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print out of all the partial correlation coefficients (2) and 
the inverse of the correlation matrix (3). (As indicated before, 
the code has room for another and more powerful improvement 
scheme that can be applied if this fails to converge. If this 
section is shown to be desirable and is written, failure of the 
first method to converge will not activate the typewriter, but . 
failure of both methods will cause it to write "matrix sing.")' 

The final item of typewriter output will be the square 
of the multiple correlation coefficient. This is written as 
soon as computed because sometimes problems may differ only in 
that alternate functions of the variables are being tried 
(linear, logarithmic, higher order algebraic functions of the 
basic data), and when this is the case for the dependent 
variable, the choice of the function giving better fit can be 
made solely on the basis of the multiple correlation coeffi- 
cient. If it turns out that the problem now in the machine 
gives a coefficient lower than that for an alternate form 
previously run, the problem may, if desired, be abandoned 
immediately by forcing a stop at a saving of machine time. 
Card Output 

The card output is designed to be listed on a Type 
407 tabulator using a straight 80-80 board, all necessary 
spacing being done on the cards themselves, All numbers will 
be properly pointed off with decimal points (8-3-12 punches on 



x x 

o- the cards) and will be followed by minus signs when negative 

(x or 11 punch). It is also possible to list the output on a 
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402 tabulator without total loss of legibility, but this is 
awkward because the fields are not located in the same places 
in all cards. In using a 402, a straight 80-80 board is also 
used, except that there must be provision for recognition of 
minus signs, and it is better to use zero suppression on the 
right-hand side of the page. Minus signs are possible in 
Columns 16, 20, 24, J>2, 35, 40, 47, 48, 50, 52, 56, 62, 64, 
65, 72, 77, and 80. In the 402 listing, decimal points will 
appear as 8's (or as 9's in columns where a minus sign can 
occur), and minus signs will appear as a 9 or some other 
symbol, but the output is so organized on the page that it will 
not be difficult to distinguish these symbols from the legiti- 
mate numbers 8 and 9 in data words. 

The output is In nine decks, exclusive of the back 
solution. In the first column of each card is punched the 
number of the deck, and In the next two is the number of the 
card in the deck. Each deck will be briefly described below, 
with the fields located with respect to the decimal point. The 
number of columns mentioned to the right of the decimal point 
is exclusive of the sign column., which is always the right-hand 
£; column of the field. 

r— I 

<> Deck One 

1 

o 

§ The code numbers of the variables. Dependent 

1— i 

r- 

x- variable first, independent variables in the order in which 

cu 

they were read in. Five numbers to a card. No decimal points 
printed, as all numbers are integers, but locations of hypo- 
thetical decimal points are in Columns 17, 32, 47, 62, and 77. 
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Decks Two through Five 

The means, standard deviations, normalized regression 
coefficients (the b.'s of Equation 9), and the regular regres- 
sion coefficients, respectively. Five numbers to a card. All 
variables in the same order as the code numbers, and all lined 
up directly below their respective code numbers on the page. 
Decimal points in Columns 14, 29, 44, 59, and 74. Five digits 
to each side of decimal. 

Decks Six and Seven 

The simple and partial correlation coefficients, 
respectively. Nine numbers on a card. Decimal points in 
Columns 10, 18, 26, 34, 42, 50, 58, 66, 74. No places to the 
left of the decimal, five to the right. As the matrix of 
coefficjLerrts is symmetrical with diagonal elements unity, only 
the upper right triangle without the diagonal is reproduced. 
The first row of the triangle starts with the coefficient of 
correlation between the dependent variable and the first 
independent; succeeding elements are the coefficients between 
the dependent variable and the second, third, etc., 
independent variables, in the order in which they 
were read in. The second now of the triangle starts with the 
coefficient between the first and second independent variables, 



i 

o 

g and continues with the coefficients between the first and third, 
£ fourth, etc. Each row is one shorter than the one before. The 
elements of the first, row are punched on cards nine at a time; 
when there are no longer nine to punch, the remaining spaces on 
the card are filled with zeros. This process is repeated with 
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the next row of the triangle. Thus the completion of each row 
of the triangle is signified by one or more words of .00000 
appearing to the right of a line on a page, except for those 
rows containing a number of elements that is an exact multiple 
of nine. In this way, the row of the triangle is easily 
identified in the printed output. The punching out of more 
than the first row of the matrix of partial correlation 
coefficients is optional. 

Deck Eight (Optional) 

The inverse of the correlation matrix. Five numbers 
to a card. Decimal points in Columns 13* 28, 43, 58, 73. 
Pour places to the left of the decimal, six to the right. As 
the inverse matrix is symmetrical, the same scheme is used 
here as with Decks 6 and 7> except that the diagonal is included, 
so that each row is one longer than the corresponding row of 
the matrix of correlation coefficients. Again, the completion 
of the row of the triangular matrix will be signified, except 
for those rows containing a number of elements that is a 
multiple of five, by one or more words of 0.000000 appearing 
to the right of a line on the page. 

Deck Nine 

Deck nine consists of one card bearing the' square of 
the multiple correlation coefficient, the standard error of 
estimate, and a of Equation (l). The decimal point for the 



x 

°« first is in Column 15; no places to the left, five to the 

right. The decimal point for the second is in Column 43; five 

places to each side. The decimal point for a Q is in Column 77; 

eight places to the left, two to the right. 
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The Back Solut ion (Optional) 

The cards in the back solution each bear four numbers. 

The first number on the card is a nine-digit integer starting 

in Column 1. The first five digits of this word are the code 

number of the dependent variable, the next digit is zero, and 

the last three digits are the number of the observation of the 

dependent variable dealt with on this card. One card is 

punched for each observation. The next number in the card 

(decimal point in Column 21, eight places to the left, two to 

the right) is the value of y* computed by Equation (l). The 

h 

next number (no decimal point punched, would be in Column 35, 
five places to the left) is the observed value of y for 
observation number h, y h . The last number (decimal point in 
Column 49, eight places to the left, two to the right) is the 
difference y h - y h . 
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Operat in g; Instructions - Full Correlation Problem 

The operating Instructions will be given a sequence 
designated by Roman numerals. This sequence is based on the 
assumption that no abnormal situations or mishaps will occur 
at any stage in the problem. However, there are certain check 
points in the program at which any errors or abnormal situations 
can be detected, and specific operating procedures have been 
devised in case of an abnormal situation at any check point. 
These check points will be designated by asterisks between the 
lines of the normal sequence, and the procedures devised for 
each point will be given following the normal sequence. 

I. Initial Preparation 

A. Set Card Unit Field III switch to Normal. 

B. Clear the read channel and place cards, prepared 
as in "Card Input," in hopper. 

C. Turn on MT 1 and MT 2 and position the tapes. 

D. Turn the typewriter on. 

E. Use a 4-interlace for maximum efficiency. 

II. Load the Program 

III. Master Clear 

A. Clear and MD start. 

B. Put computer on High Speed, Test Mode, 

^ Drum Clock Source. 

i 

T IV. Make Manual Jump Selections 

o 
o 

£ A. No. 1 if x's are to be written on tape, 
r- 

£ B. No. 2 if all partial correlation coefficients 
desired. 

C. No. 3 if inverse of correlation matrix is to 

be punched out* 9-126 
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V. START the computer. The typewriter. 1 will print out the code 
sum and the computer will halt on a 56 00000 40100 
instruction. Then: 

A. If the independent variables are to be read from 
cards , START the computer. 

B. If the independent variables are to be read from 
tape , set PAK=00000 and START the computer. MT 2 
will be used. In either case, the computer will: 

1. Advance the cards two stations and read 
control deck. 

2. Read x's from cards or tape. 

3. Read y's. from cards. 

4. Write input sum on typewriter. 

5. Compute means, standard deviations, cross 
products (brief, characteristic scope 
display for each). 

6. Invert the correlation matrix (spectacular 
scope display). 

7. Start improving matrix, using MT 1 if there 
are more than 19 variables (scope display 
characteristic of first half of improvement 

£ cycle). 

8. Type, out "i" after first half of each 

improvement cycle. 
*** 
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9- l'Mnitih improving matrix (scope display- 
characteristic of second half of improvement 
cycle) by repeating Steps 7, 8, and 9 as 
often as necessary. Frequently, once is 
enough. 

10. Type out the square of the multiple correla- 
tion coefficient. 

11. Compute standard error of estimate, normalized 
and regular regression coefficients, and 
partial correlation coefficients (very brief 
scope display). 

12. Advance punch cards two stations and punch 
out decks 1 through 9. 

**** 

15- STOP on a 56 00000 00430 instruction. 

VI. Back Solution after Correlation (Optional) 

A. If back solution is not desired, problem is 

finished. If another problem is ready in the card 

read hopper (see "Card Input" for directions for 

loading several problems at one time), master clear, 

MD start, and go to IV. ' 

-s B. If back solution is desired, START the computer. 

r- 

cm 

C It will: 

i 

o 1. Compute back solution (very brief characteris- 

es 

£ tic scope display). 

x 

^ 2. Advance punch cards two stations and punch out 

out back solution. 
***** 
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3* FINAL STOP on a 57 00000 00000 command. 
C. If back solution v/as run and another problem Is 
ready in the hopper, to to III. 

* Trouble Symptom - Typewriter writes "tape sum no good," 
or a suitable abbreviation thereof, and computer 
halts on a 56 00000 40576 command. 

Action - START computer. Computer will attempt to 

read tape again. If it succeeds, it will proceed 
without comment. If it fails, the above symptom 
will be repeated. 

Explanation - In reading the x's from tape, the computer 
will sum the data as read in and compare this sum 
with one written on the tape. If the sums agree, 
the computer will rewind the tape while proceeding 
with the problem. If they do not, the computer 
will rewind the tape while typing out the message 
and then halt. If the fault is caused by a dropped 
bit, a second reading may be successful, but this 
may indicate the tape needs replacement or 
regeneration. 
^ ** Trouble Symptom - The computer halts, right after the 

CM 

C highly characteristic scope display indicating the 

1 

o matrix inversion, on a 56 00000 00010 command. 

o 
o 

£ Action - Master clear, MD start, set PAK = 42524, and 

°* START. The computer will advance the punch cards 

two stations, punch out decks 1, 2, 3, and 6, and 

STOP on a 57 00000 00421 command. 
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Explanation - If the matrix is to be inverted is 

singular, or nearly singular, the computer may be 
unable to invert it because of overflow in the 
floating point arithmetic or, as is more likely, 
because of overflow in converting the elements of 
the inverse matrix back to fixed point numbers. 
Such an overflow will cause the above halt. Taking 
the above action will cause the computer to print 
out all the results obtained up to this point in 
the problem, after which it will come to a final 
stop, as nothing more can be done with this problem. 
The cause for the singularity of the matrix can 
generally be found in the magnitude of the simple 
correlation coefficients; if the explanation is not 
there, it may be due to n = m, or to a nearly perfect 
fit of the regression plane. 

*** Trouble Symptom - In the matrix improvement, the scope 

display characteristic of the first half of the cycle 
reappears after the typewriter types "i." The type- 
writer then types "diverges, set mj 2,3- go," and the 
computer then halts on a 56 00000 00132 command. 

S Action - Set manual selective jumps 2 and 3 if all the 

J partials and a listing of the inverse matrix are 
1 

§> desired. Then START. The computer will finish the 






problem in the normal manner 
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Explanation - The matrix Improvement scheme has failed 

to converge, probably indicating a poorly conditioned 
matrix. The computer halts to give the operator the 
opportunity to set these manually selective jumps in 
case full information on the inverse is desired 
because of this condition, but it is not imperative 
to set them. Starting the computer will restore the 
inverse as obtained directly, before the initiation 
of the improvement scheme, and the problem will be 
continued with this. Divergence is usually caused 
by the original inverse being not quite good enough 
to meet the tolerance limit imposed but still so 
good that the small improvement that can be effected 
in one cycle becomes smaller than accumulated error 
in the improvement scheme. 

Trouble Symptom - 10 fault, other fault, or other 
evidence of difficulty with card unit. 

Action - Clear fault. Force stop. Check condition of 
card unit, cards. Remove frayed or warped cards 
from the punch hopper. Clear the punch channel and 
remove punched cards. See that there is' an adequate 
£> supply of well conditioned cards, not stuck 

<* together, in the feed hopper. Then master clear, MD 

o 
o 

2 start, see that the machine is on High Speed, Drum 

£ Clock Source, and Test Mode. Set PAK = 41310 and 

START. Machine will recommence punching out results 

starting with deck 1. 
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E xplanation - During the punching out of the answers, 

trouble can arise in the card unit because of poorly 
conditioned cards, because too many punched cards have 
accumulated in the output hopper, or for some other 
reason. Since the answers are preserved on the drum, 
it is possible to start over in the punch-out routine 
once the cause of the difficulty has been corrected. 
***** Trouble Symptom - Same as for **** above, except that it 
occurs in the punching out of the back solution. 

Action - Same as above, except that PAK is set equal to 
42114. 

Explanation - Same as above. 
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Date 3 May 1956 



Title: Magnetic Drum to Magnetic Tape Dump 



Use: 



Ranger: 



This routine is used to dump specified portions of the 
magnetic drum onto the magnetic tape units. Returning 
of the information to the drum is under control of a 
routine which is written on the tape at the time of the 
dumping. 

Any one of the tape units may be used and any number 
of words from 1 to the entire drum may be dumped. Upon 
restoration of the information to the drum, only the exact 
words dumped are restored; the remainder of the drum is 
undis tubed. 



Storage: 



co 
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Format: 



Initial storage of the routine is? 

00100b - 00161b 

00200b - 00540b 

The entire magnetic core memory Is used for temporary 

storage. 

This routine is not coded in standard form, cannot be 
modified, and is not self-resetting. 



Parameter Words: Parameter words for the control of this routine are 

placed in A ai d Q. See Instructions for Use, page 3. 



Manual Entryi 



00100b 



Automatic Entry: For use with Ferranti Read-in routines recognizing a 

transfer to program code, an automatic start at 00105b 
is available. 
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Description of Service 



This routine is used to dump information from the magnetic drum 
onto the magnetic tapes . The information is moved from the drum into the 
magnetic core before being written onto the tape. The entire core is used for 
this operation. After a start the routine first writes 4 blocks of tape which 
contain the routine for restoring the information to the drum. The desired 
information is then written onto the tape, containing as the first word of the 
first block of information, a control word which contains the insert address 
for the information and the number of locations. By resetting the parameter 
word in Q, additional groups of information can be dumped, each with its own 
control word. By a restart with Q - 0, the signal that the last group has been 
written, one additional block is written which contains a "Dump end" control 
word and a check sum of all dumped information. The magnetic tape is then 
rewound to the original starting position and the computer stops. All control 
words contain a parity bit which will be a or a 1 such as to make the number 
of l's in every control word even. 

Provision is made for the inclusion of an address to which control 
of the computer will be returned after the dumped information has been re- 
stored to the drum from the tape. If such address is used, the computer will 
also come to a zero step with PAK set at this address after the dumping had 
been completed and the tape rewound. At this time, the total number of 
blocks that have been written will appear in Q. 

To restore the information on the tape to the drum, an MT Start 
is used with the appropriate J in VAK and the tape unit positioned. The un- 
dump routine is first read into core and a check sum taken on the undump 
routine itself. Next the block containing the control word is read in and the 
control word itself is subjected to a parity check. The information is then 
read into core and transferred to the appropriate location in drum, where 
'-» a check sum on the information is computed. The magnetic tape is then re- 
™ wound and control returned to the address designated when the information 



was dumped. If no such address was designated, a FS results. 
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Instructions for Use of Routine 



Dumping from Drum to Tape 

1. Manually dump MC to MD, if desired. 

2. Position the magnetic tape which is being used to the position 
where dumping is desired. 

3. Enter parameter word in Q: 

OJ WVVV NNNNN 

J = desired tape unit 

V = First Drum address of information being dumped 

N = number of words to be dumped 

. ff V + N exceeds 100000b, N is replaced by 100000b- V 
(i.e. , last word dumped is 77777) 

4. Enter in A the following: 

00 00000 BBBBB 

B = MD address to which control of machine should be returned 
after information on tape has been restored to drum, if any. 
This may be omitted if a Final stop is desired after infor- 
mation is read from tape onto drum. 

5. Set PAK to 00100 and Start. 

6. If MT0 has been put in the Q parameter word or if no tape unit has 
been specified, (i.e. , J=0), the typewriter will type out "mtO" 

co and stop. If unit zero is desired, simply restart. If one of the 

other tape units is desired, insert the correct J in Q and restart. 
If no parameter word was inserted in Q before starting, the type- 

o writer will type out "set q". 

o 



CM 



*- 7. After dumping the information designated by the first parameter 

jg word, the machine will halt with Q clear. At this time additional 
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groups of information may be dumped by keying into Q additional 
parameter words and restarting. The parameter word in A should 
not be used after the first dump. As many groups of words may be 
dumped as desired. 

After the last desired group of words has been dumped, the machine 

should be restarted with Q = O. This will signal the routine that 

the dumping is finished; the final control word and the check sum 

will be written and the tape rewound. At this point the machine will 

come to a stop with PAK equal to the B address inserted in A in 

the original dump; if such was used. If no parameter word was 

placed in A , a Final Stop results at this point. 
R 

At this time, the total number of blocks of tape that have been 
written will appear in Q for logging purposes. 



Restoring Information to Drum 

With the tape unit positioned to the same place where the dumping began, 
and the appropriate tape unit keyed into UAK, an MT Start should be made. The 
information dumped will be stored on the drum, check sum compared, tape re- 
wound, and, if no B address was used in A during the initial dump, come to a 
final stop. If a B address was used in A ouring the initial dump, control is 
sent to B via an MSI. 



Alarms and Abnormal Conditions 

1. If no tape number is keyed into the parameter word, the Flexo- 
writer types a warning to the effect, but a restart will permit 
using Tape unit zero. 



2. If any address other than a drum address is set for any V, the 
routine will no 
to a zero stop. 



5 routine will not dump the information but will repeatedly return 



i 

I 

o 3. If an address other than a drum address is used as B for the 

** start of the program, a Final Stop will result at the end of both 

the dump and the imdump. 



x 

cu 



4. If V + N exceeds 100000b, N is replaced by lOOOOOb-V. 
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5. When restoring the information from tape to drum, the undump 
routine first performs a cheek sum on itself. If this fails, the 
typewriter types out "Undump Check Sum NG". A restart reads 
in the routine again and recomputes the check sum. 

(\ The first word of each section restored to drum is a control 
word containing the insert address and number of words in that 
section and a parity bit such as to make an even number of l's 
the word. Each control word is checked by the routine for this 
feature. Should this fail, the Flexowr iter types out: "Parity 
cheek failure". A restart will repeat the read-in and parity 
check. 

7. After all information has been read back into the drum, a low 
order check sum of all data is made and an error causes the 
typewriter to type out "Data check sum fault". A restart reads 
the data in again. 
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SETUP ROUTINE 





Storage 


Working 










Location 


Location 










00100 


00100 


45 


00000 


00101 




00101 


00101 


11 


20000 


01001 




00102 


00102 


11 


10000 


01000 




00103 


00103 


11 


10000 


20000 




00104 


00104 


47 


00113 


00106 




00105 


00105 


23 


10000 


10000 




00106 


00106 


31 


00153 


00052 




00107 


00107 


61 


00000 


20000 




00110 


00110 


34 


20000 


00006 




00111 


00111 


47 


00107 


00112 




00112 


00112 


56 


00000 


looioi] 




00113 


00113 


31 


01001 


00071 




00114 


00114 


46 


00115 


30117 




00115 


00115 


11 


00112 


00521 




00116 


00116 


45 


00000 


00120 




00117 


00117 


11 


00521 


00201 




00120 


00120 


16 


01001 


00521 




00121 


00121 


16 


01001 


00201 




00122 


00122 


11 


01000 


10000 




00123 


00123 


51 


00155 


20000 


GO 
CM 

e-t 


0D124 


00124 


47 


00127 


00125 




00125 


00125 


31 


00154 


00052 


1 

© 
© 


00126 


00126 


37 


00112 


00107 




00127 


00127 


55 


10000 


00041 


a. 


00130 


00130 


51 


00355 


00356 




00131 


00131 


11 


00355 


10000 



Manual Entry 
Store B, if used 
Store J, V, and N 

}Test to see if parameter 
word was placed in Q 
Auto start; clear Q 



- Print "set q H 



~1 Test to see KB HMD 
address 



i. 



*• Set up exits 



Parameter word — Q 

J-A 

J = ? 

Shift tape unit number 
J — 00356b 
J mask — Q 
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CM 



I 

O 
I 

o 
o 
a* 



X 
CL, 



00132 
00133 
00134 
00135 
00136. 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 



00132 


11 


00100 


20000 


00133 


42 


00156 


00135 


00134 


42 


00157 


00140 


00135 


21 


00132 


00372 


00136 


42 


00160 


00132 


00137 


45 


00000 


00144 


00140 


31 


00132 


00071 


00141 


16 


20000 


00142 


00142 


53 


00356 


00000 


00143 


45 


00000 


00135 


00144 


75 


10174 


00146 


00145 


21 


00375 


00201 


00146 


13 


00375 


00375 


00147 


65 


00004 


00200 


00150 


11 


01000 


10000 


00151 


75 


30137 


00001 


00152 


11 


00401 


00001 


00153 


45 


24200 


10435 


00154 


07 


01025 


73702 


00155 


03 


00000 


00000 


00156 


63 


00000 


00000 


00157 


67 


70000 


00000 


00160 


11 


00600 


00000 



Routine to mask tape 
— unit number into all 
tape orders 



^ Compute cheek sum of 
undump routine 

Write undump routine on tape unit J 
Parameter word — Q 

}Move dump routine to 
00001 - 00140b 



*■ Constants 
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00200 
00201 
00202 

00203 
00204 
00205 
00206 
00207 

00210 
00211 
00212 
00213 
00214 
00215 

00216 
00217 
00220 
00221 
cS 00222 



i 

o 
i 

o 

o 
o 



X 

a. 



00223 
00224 
00225 
00226 
00227 
00230 
00231 



00000 


45 


00000 


00002 


00001 


56 


10000 


fOOOOO] 


00002 


64 


00003 


00040 


00003 


75 


10174 


00005 


00004 


21 


00175 


00001 


00005 


47 


00007 


00014 


00006 


00 


07777 


00000 


00007 


67 


00004 


00000 


00010 


15 


00013 


00132 


00011 


37 


00137 


00130 


00012 


64 


00004 


00000 


00013 


45 


00140 


00003 


00014 


15 


00063 


00053 


00015 


64 


00001 


00177 


00016 


23 


00237 


00237 


00017 


11 


00173 


00171 


00020 


55 


00177 


00001 


00021 


11 


00237 


20000 


00022 


52 


00172 


00237 


00023 


41 


00171 


00020 


00024 


31 


00237 


00070 


00025 


46 


00026 


00033 


00026 


67 


00001 


00000 


00027 


41 


00174 


00015 


00030 


15 


00032 


00132 


00031 


37 


00137 


00130 



Exit to ma ill program 

Read in remainder of undump 
routine 

| Test check sum of 

I undump routine 






Constant - block mask 

Rewind tape for new read- in 
if check sum fails 

}Print out "undump 
check sum NG M 
}Read in undump routine again 
when check sum fails 
Repair 00053b 

Read in block containing control 
word 



Parity check 
I control word 



J 



Print out "Pari+v 
check failure" 
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CO 
CM 



I 

o 

I 

o 
o 



X 

a. 



00232 

00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 
00262 
00263 



00032 


45 


00144 


00015 


00033 


11 


00177 


20000 


00034 


46 


00044 


00035 


00035 


15 


00177 


00036 


00035 


67 | 


[00000 


000001 


00037 


11 


00200 


20000 


00040 


43 


00176 


00001 


00041 


15 


00043 


00132 


00042 


37 


00137 


00130 


00043 


45 


00150 


00012 


00044 


15 


00177 


00170 


00045 


16 


00177 


00053 


00046 


11 


00170 


20000 


00047 


42 


00166 


00110 


00050 


42 


00167 


00104 


00051 


64 


00033 


00237 


00052 


75 


31577 


00054 


00053 


11 


00200 \ 000001 


00054 


37 


00126 


00120 


00055 


21 


00053 


00165 


00056 


23 


00170 


00164 


00057 


42 


00163 


00070 


00060 


64 


00034 


00200 


00061 


16 


00053 


00063 


00062 


75 


31600 


00064 


00063 


11 


00200(00000] 



Return to read in control word 
again 



} 



Check for final control word 



U Rewind tape 

>Test check sum, exit to 
main routine if ok 

Print "Data check sum 
fault" 

N — 00170b 

Setup v of 00053b 

N — A 

N>^7 ? 

N > 1577 ? 

Read in 1540 words 

U Transfer 1577 words to MD 

Compute check sum 

v + 1577 -— v 

N - 1577 — N 

N > 1600 ? 

Read in 1600 words 

Pick up current v 

U Transfer 1600 words to MD 
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00264 


00064 


37 


00126 


00120 


00265 


00065 


21 


00053 


00162 


00266 


00066 


23 


00170 


00161 


00267 


00067 


45 


00000 


00057 


00270 


00070 


21 


20000 


00160 


00271 


00071 


73 


00157 


20000 


00272 


00072 


21 


20000 


00156 


00273 


00073 


15 


20000 


00074 


00274 


00074 


64 


00000 


00200 


00275 


00075 


15 


00155 


00100 


00276 


00076 


21 


00100 


00170 


00277 


00077 


16 


00053 


00101 


00300 


00100 


75(000001 


00102 


00301 


00101 


11 


00200f 000001 


00302 


00102 


37 


00126 


00120 


00303 


00103 


45 


00000 


00014 


00304 


00104 


73 


00157 


20000 


00305 


00105 


35 


00156 


20000 


00306 


00106 


15 


20000 


00107 



00307 



s-\ 


00310 


00110 


CO 
CM 

•H 
1 

o 

1 


00311 
00312 


00111 
00112 


o 
o 
o 

1— « 


00313 
00314 


00113 
00114 


X 

cu 


00315 


00115 




00316 


00116 




00317 


00117 



00107 64 1000001 00237 

11 00170 20000 

35 00155 20000 

15 20000 00114 

16 00053 00115 
75 [000001 00116 
11 00200 \ 000001 
37 00126 00120 
45 00000 00014 



Compute cheek sum 
V + 1600 — V 
N - 1600 — N 

N + 37 — A 
N + 37 



> 



40 
J, N+37 



— 00074b 



Read in N + 37 blocks 
40 



N — 00100b 



Transfer N words to MD 



Check sum 

Read in next section of dumped 
information 



N_ 
40 



-*A 



J; ^ _ 00107b 
40 

Read in N blocks 
40 



J, N^ 00114b 

Pick up V 
(-Transfer N words to MD 

Compute check sum 

Read in next section of dumped 
information 
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00320 


00120 




00321 


00121 




00322 


00122 




00323 


00123 




00324 


00124 




00325 


00125 




00326 


00136 




00327 


00127 




00330 


00130 




00331 


00131 




00332 


00132 




00333 


00133 




00334 


00134 




00335 


00135 




00336 


00136 




00337 


00137 




00340 


00140 




00341 


00141 




00342 


00142 




00343 


00143 




00344 


00144 




00345 


00145 




00346 


00146 


CO 


00347 


00147 


CM 

pH 
■ 


00350 


00150 


o 
1 

o 


00351 


00151 


o 

1—1 

x 


00352 
00353 


00152 
00153 


Cl, 







11 00126 20000 

34 00166 00017 

15 20000 00124 
11 00006 10000 
53 100000] 00126 

16 00053 00127 
75 flOOOOJf 00000] 
21 00176 fOOOOO] 
16 00166 00171 
16 00003 00174 

55 00000 00006 
61 00000 10000 
41 00174 00132 
21 00132 00172 
41 00171 00131 

56 00000 P0000] 
45 47345 70622 
34 07150 41605 
20 16360 42434 
07 04470 61345 
45 47155 73012 
14 01250 41605 
20 16360 42630 
14 11341 22045 
45 47225 73001 
30 04160 52016 
36 04243 40704 
26 30341 10145 



~\ 



Check sum routine 



n 



- Print subroutine 



i 



r 



Flex code constants 



9-143 



OR-128 
page 12 of 15 



co 
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I 

o 
o 
o 



X 

a, 



00354 


00154 


00355 


00155 


00356 


00156 


00357 


00157 


00360 


00160 


00361 


00161 


00362 


00162 


00363 


00163 


00364 


00164 


00365 


00165 


00366 


00166 


00367 


00167 


00370 


00170 


00371 


00171 


00372 


00172 


00373 


00173 


00374 


00174 


00375 


00175 


00376 


00176 


00377 


00177 



00 00000 00003 

00 30000 00000 

00 00000 00000 

00 00000 00040 

00 00037 00000 

00 01600 00000 

00 00000 01600 

00 01600 00001 

00 01577 00000 

00 00000 01577 

00 00037 00003 

00 01577 00001 

00 [00000] 00000 

00 00000 [00000] 

00 00001 00000 

00 00000 00043 

00 00000 [00001] 

00 00000 00000 

00 00000 00000 

00 00000 00000 



~v 



DUMP ROUTINE 



Constants 

and 
Counters 



00400 


0000" 


45 


00000 


00001 




00401 


00001 


31 


10000 


00052 


Parameter word — A 


00402 


00002 


47 


00014 


00003 


Parameter word zero ? 


00403 


000^3 


23 


00137 


00137 


Maka control word positive ? 


00404 


00004 


15 


00012 


00137 


J; N —: control word 


00405 


00005 


37 


00040 


00027 


Parity bit correction 


00406 


00006 


11 


00136 


00140 


Move check sum 


00407 


00007 


65 


00001 


00137 


Write control word and check sum 
on tape 
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CO 



I 

o 
I 

o 

O 
O 



X 

a, 



00410 
00411 
00412 
00113 
00414 
00415 
00416 
00417 
00420 
00421 
00422 
00423 
00424 
00425 
00426 
00427 
00430 
00431 
00432 
00433 
00434 
00435 
00436 
00437 
00440 

00441 
00442 
00443 



00010 


11 


00127 


10000 


00011 


51 


00012 


10000 


00012 


67 J00005] 00043 


00013 


45 


00000 


00120 


00014 


46 


00015 


00104 


00015 


15 


10000 


00051 


00016 


31 


1 0000 


00071 


00017 


16 


20000 


00137 


00020 


31 


10000 


00017 


00021 


15 


20000 


00130 


00022 


31 


00135 


00065 


00023 


16 


00137 


00133 


00024 


34 


00133 


00017 


00025 


42 


00130 


00021 


00026 


15 


00130 


00137 


00027 


16 


00012 


00133 


00030 


23 


00237 


00237 


00031 


27 


00137 


00135 


00032 


11 


00137 


10000 


00033 


55 


10000 


00001 


00034 


11 


00237 


20000 


00035 


52 


00132 


00237 


00036 


41 


00133 


00033 


00037 


31 


00237 


00070 


00040 


46 


00027 


00041 



Number of blocks — Q 

Rewind tape 

Is V an MD address ? 



J 
} 



Store V 



Store N 



00041 11 00130 20000 

UUU42 15 00125 00124 

00043 15 00065 00050 



100000b — A 
Isolate N 
100000 - N to Au 
V + N > 100000b ? 
N -» control word 
00043b -» counter 
— parity sum 
Complement parity bit 
Control word -*> Q 
Shift Q left 1 place 

Add 1 bit of control word 
to parity sum 

All bits added ? 

Parity sum — A 

Least significant bit of parity 
sum zero ? 

N — A 

1637b — 00124b 

Setup transfer of 1637b words 
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00444 
00445 
00446 
00447 
00450 
00451 
00452 
00453 
00464 
00455 
00456 
00467 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 

00470 
00471 

- 00472 

co 

^ 00473 

T 00474 

o 

§ 00475 

■—) 

^ 00476 
00477 
00500 
00501 



00044 


16 


00004 


00053 


00045 


11 


00125 


00131 


00046 


15 


00064 


00134 


00047 


42 


00124 


00067 


00050 


75 100000] 00052 


00051 


11 


130000] 00140 


00052 


37 


00116 


00105 


00053 


65 


P0035] 130000] 


00054 


21 


00012 


00123 


00055 


21 


00051 


00131 


00056 


23 


00130 


00131 


00057 


15 


00126 


00124 


00060 


15 


00122 


00050 


00061 


16 


00051 


00053 


00062 


11 


00126 


00131 


00063 


15 


00104 


00134 


00064 


45 


00040 


00047 


00065 


00 


31637 


00000 


00066 


00 


00000 


00000 


00067 


32 


00134 


00103 


00070 


11 


00127 


10000 


00071 


53 


20000 


0010? 


00072 


53 


00130 


00074 


00073 


15 


00051 


00075 


00074 


75 130000] 00076 


00075 


11 130000] 00140 


00076 


37 


00116 


00105 


00077 


16 


00053 


00102 


00100 


11 


00012 


20000 


00101 


52 


00102 


00012 



Setup to write control word 
Setup index to 1637b 
Setup block count threshold to 40 
N less than 1637b or 1640b ? 
Transfer 1637b or 1640b words 

Compute check sum 

Write words on tape 

35 plus block count to block count 

V * 1637b or 1640b — V 

N - 1637b or 1640b — N 

Set threshold to 1640b 

Set transfer order to 1640b words 

Set "v" of tape write order to 140b 

Set index to 1640b 

Set block threshold to 37 



N + 37 

rr -*■ A 

40 

N mask — Q 

Number of blocks — > write mtj order 

K — 00074b 

V — 00075b 

} Transfer remaining words in 
section to MC 

Compute check sum 

Pick up start point from mtj 



} 



Block count 
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00502 


00102 




00503 


00103 




00504 


00104 




00505 


00105 




00506 


00106 




00507 


00107 




00510 


00110 




00511 


00111 




00512 


00112 


' 


00513 


00113 




00514 


00114 




00515 


00115 




00516 


00116 




00517 


00117 




00520 


00120 




00521 


00121 




00522 


00122 




00523 


00123 




00524 


00124 




00525 


00125 




00526 


0C126 




00527 


00127 


CO 


00530 


00130 


CM 

v./ 


00531 


00131 


1 

o 
o 
o 

1— t 


00532 
00533 


00132 
00133 


t^ 








00534 


00134 




00535 


00135 




00536 


00136 




00537 


00137 



65 |0000q |30000] 

23 10000 10000 

56 00037 00001 

11 00116 20000 

34 00124 00017 

15 20000 00110 
31 p0000| 00071 

16 20000 00117 
23 00110 00132 
15 20000 00115 
11 00127 10000 
53 [30000] 00116 

75 [10000] [30000] 
21 00136 30000 
55 10000 00025 
[57 00000 00000] 
00 31640 00000 
00 00035 00000 
00 [00000] 00002 
00 01637 00000 
00 01640 00000 
00 07777 00000 
00 pooooi 00000 
00 [00000] 00000 
00 00001 00000 
00 00000 [00000] 
00 [00000] 00000 
20 00000 00000 
00 00000 ooooc 
40 P0000| [00000] 



Write mtj 

Clear Q 

Wait for next parameter word 

Setup check sum routine 



J 
} 



V to 00117v 



Y - 2 — 00115v 



N mask — Q 

Number of words transferred 
— 00116V 



Compute deck sum 



1 

-J 
Shift number of blocks to QV 

Stop (or 5600000 BPBBB) 



Constants 
L. and 
Counters 



J 
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CARD READ AWD/OR POICH ROUTUB 

This routine combines the features of the card read IC 005 *&£ the oard 
punoh IC 006 routines In order that the operations of punching and reading 
nay be performed simultaneously. This routine requires &01 ootal words of 
SS in which to operate , oonstamta and temporary storages included* A*two cycle 
operating basis, which more efficiently uses the card cycle time, makes possible 
the reading of as many as thirty fields from a oard and the punching of as 
nany as thirty fields in a card simultaneously and have llj. ms computing time 
available between references to the routine. If the routine is used for reading 
alone or for punching alone, these cards may contain as many as forty fields* 

During the first five points of the 16 point oard cycle # information to 
be punched is converted to decimal and stored in card code in a card image § 
final conversion and soaling of the information read from the previous card 
Is performed and stored In specified SS mem o ry locations. The remainder of 
the cardoycle is used for punching and reading, row by row with the following 
5 steps occurring at each row of the card cycle (beginning at row 9 and 
continuing through row 12) t 

1* Punch information — ►-oard machine. 

2* Read information *-H03. 

3. Read information converted to B* C. D. and stored for final 
conversion during next oard cycle* 

Although two card cycles are necessary to complete the operations, the 
net effect is the converting of one read card and the punching of one card 
during eaoh card cycle. 



rent i«i«-a 
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The oard routine requires the following information! 

1) Binary sealing. 

2) Decimal scaling* 

3) Location of fields on the cards. 
h) Zero suppression (if punching). 

This information is supplied the routine in a standard form called a 
parameter word. (kie parameter word is required for each card field whether 
reading or punching. If both reading and punching are to be accomplished, 
a parameter word is required for each. 

A field consists of a number of consecutive card columns. The last 
column of a field is reserved for 1fce sign of the decimal number stored in 
the field. An 11-punch signifies a negative number, no punch (blank column) 
signifies a positive number. A combination 12. 3 and 8 nunch in one column 
signifies a decimal point. 

Fields need not be adjacent— there may be unused columns punched or 
unpunched between ihem—tior need they be alike in sise. 

The conversion operations are automatic. 

Enty into the card read and punch routine from line y is effected as 
follows s 

y ) 37 Ommmm Qmmmm To read and punch routine 

y + 1) AB C5PPPP 1 ODDM^ Read control word 

y 4- 2) 00 0PPPP 2 ODDDDg Punch control word 

y+3) MI uuuuu vww Hext instruction 

Ommmm represents the beginning SS operating address of the read and 

punch routine. 
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The 37 command records In Onmanm the address of the control word. The 
routine is then entered at Oanewm and after finishing the operations the card 
routine exits to y -r- 3» the line following the second control word, 

CONTROL WORD 
Since this routine is coded to read and punch with each reference to 
the routine, it is necessary to use two control words with each reference to 
it. Their composition is explained below. 

AB 0PPPP 1 0DDDD 1 
00 0PPPP g ODDDD 

A # the first octal digit, controls positioning of cards in the read and 
punch channels of the Bull Reproducer. 

B, the second octal digit, controls the operation to be performed. 
AB 

00 cycle Bull Reproducer. Cards already in either channel are advanced 
one card station. This is also performed with any of the following 
operations • 

01 (not allowed) 

02 punch a card 

10 pick a card from the read hopper. This card will not go into the 
read channel until the next rsad card is picked. 

11 pick a card from the read hopper and read a card. 
xd pick a oard from the read hor>p«r and punch. 

20 pick a card from the punch hopper. This card will not e o into the 
punch channel until another card is picked from the punch hopper. 

21 not allowed. 

22 pick a card from the punch hopper and punch a card. 
30 pick a card from both hoppers. 
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51 pick a card from both hoppers and read a card* 

32 pick a card from both hoppers and punch a card* 

33 pick a card from both hoppers and both read a card and punch a card* 
00, the first tiro octal digits of the second control word always remain 

teres. 
OPPPP is the BS address of the first parameter word for the card read 

portion* 
ODDDD^ is the E$ storage address for the first word read from the read card* 
0PPPP 2 is the ES address of the first parameter word for the card punoh 

portion* 
ODDDDg is the ES address of the first data word for the card punch portion. 

PARAMETER WORDS 
Parameter words consist of twelve octal digits divided into six groups 
of two each • 

PP SS BB LL RR ZZ 

FPt Flag for final parameter word. 
PP = 77 octal for final word. 
FFr00 otherwise. 

SS, Binary sealing factor, (number of bits to the right of the binary 
point.) 

BB, Number of blanks or unused columns between previous field, or edge of 

card, and present field. 
Ii. Humber of digit poeition. to the left of the decimal point. 
n. Humber of regaining colum. i„ the field exclusive of .ip,. 

SB = 00 no decimal point and no decimal fraction. 
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ZZs Flag for soro suppression* 

K-77 octal for sero suppression* 

ZZ=00 for no sero suppression. These two digits are deooded by 
the punch routine only. Only reroe in the integer part are 
suppressed* A zero immediately preceding the decimal point is 
not suppressed* 

Total size of a field = LL + RR + 1. 

RANGE OF PARAMETERS 1 
DECIMAL 

00 £ SS ± 35 

00 £ BB £ 63 

00 £ LL £ 10 

00 ^ RR * 11 

01 £ LL + RR £ 11 
The parameter words, one for each field, must be stored consecutively 

starting at some ES memory location OPPPP. There must also be an equal 
number of consecutive words starting with some SS memory location 0DDDD. 

Reading occurs at the second card station in the read channel and punching 
occurs at the third card station in the punch channel. Therefore, these cards 
must be advanced to these respective positions before these operations can 
take place. This may be d no manually or the routine may be used to position 
the cards as described ear liar. 

It should be noted that once a card has entered either the read or punch 
channel it continues to advance one card station each time the Bull Reproducer 
is cycled* 



OCTAL 
00 ± SS ± h3 
00 4z BB - 6z 77 
00 4z LL iz 12 

00 4s RR -£r 13 

01 <=. LL + HR £ 13 
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o 
I 

o 
o 



a. 



The routine may be 


programmed in the 


following manner j 


READ ONLY: 








37 


01000 


01000 




10 


00000 


00000 


pick a read card* 


00 


00000 


00000 




37 


01000 


01000 


- 


11 


00000 


00000 


pick a read card and read a card. 


00 


00000 


00000 




37 


01000 


01000 


pick a read card, read a card 


11 


OPPPPj 


0DDDD 1 


and convert* 


00 


00000 


00000 




ttJICH OHLYi 








37 


01000 


01000 




20 


00000 


00000 


pick a punch card. 


00 


00000 


00000 




37 


01000 


01000 




20 


00000 


00000 


pick a punch card. 


00 


00000 


00000 




37 


01000 


01000 




22 


00000 


00000 


pick a punch card, and punch a card. 


00 


opppp^ 

2 


0DDDD 
2 
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READ and PUHCHi 



37 01000 01000 

30 00000 00000 
00 00000 00000 

37 01000 01000 

31 00000 00000 

00 00000 00000 

37 01000 01000 

33 QPPPP 1 0DDDD 

00 0PPPI> 



pick from both hoppers 



pick from both hoppers and road a 
card* 

pick from both hoppers convert, punch 
and read* 



Wumbers are rounded to the desired number of decimal digits before 
punching takes place. A divide check error stop results if an insufficient 
number of card columns is allowed for the integer portion of a field. 

In case of a card maohine failure or an accidental stop in the middle of 
a card cycle, the current card may be reread or punched again t reposition 
the cards set £ A l) 2 00000, and START. 

This routine is coded in standard form. All constants are contained by the 
routine. 

Humber of words » 

Used by the routine 1 (322) 8 a. (210) l0 

Used by temporaries immediately following routinet (57) *(Ul) 
__ 8 *" 

For assembly modification* (271) fi * (185) l0 

Used for constants 1 (3l) 8 s (25) 1ft 
Thirty fields may be read and thirty fields may be punched simultaneously. 
f e*ty fields may be read or forty fields may be punched. 
lii m computing time is *t*U*Mr between references to the card routine. 
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CARD READ AND PUNCH RT. 



IC007 



CM 



I 

O 

I 

o 
o 



cu 



1000 


71 


01276 


00000 


CONTROL WORD 1— >-(A) 


1001 


15 


20000 


C1034 


STORE P, 


1002 


16 


20000 


01072 


STORE X 


1003 


16 


01124 


00000 


SET EMERGENCY RERUN 


1004 


55 


20000 


00003 


SHIFT FIRST DIGIT— >-<Q) 


1005 


31 


01273 


00003 


BULL CODE • 2"*— MA) 


1006 


52 


01312 


20000 


EXTRACT PICK CODES 


1007 


32 


20000 


00001 


SL t (A R > 


1010 


44 


01011 


01011 


SLx (A L ) 


1011 


44 


01133 


01012 


PUNCH ? 


1012 


16 


01261 


01120 


NO: SET «< 3 


1013 


44 


01017 


01014 


READ ? 


1014 


37 


01160 


01121 


NO: SET T t 


1015 


41 


01107 


01152 


ALL ROWS PUNCHED ? 

• 


1016 


56 


00000 


01016 


EXIT 


1017 


37 


01160 


01024 


SET 7* 


1020 


76 


00000 


01376 


READ 


1021 


76 


10000 


01346 


ONE 


1022 


76 


10000 


01362 


ROW 


1023 


45 


00000 


31023 


A-SVITCH 


1024 


32 


01276 


00000 


ADD READ CODE 


1023 


37 


01023 


01121 


SET A a 


1026 


41 


01127 


01076 


DIGIT-1 — ^DIGITt NEG. V 

• 


1027 


16 


01101 


01127 


SIGN SENT1NFL — M>T«IT 


1030 


37 


01023 


"01076 


SET A 2 


1031 


■15 


01263 


01253 


PRESTORE MATRIX TRANSFER 


1032 


37 


01122 


01016 


SET B 2 


1033 


37 


01075 


01034 


SET CONVERSION REPEAT 


1034 


55 


30000 


00000 


PARAMETER WORD 1 —*~(Q) 


1035 


44 


01036 


01037 


LAST -FIELD ? 


1036 


16 


01122 


01075 


YES*. SET CONVERSION EXIT 


1037 


55 


10000 


00013 


SL fI &) 
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CARD READ AND DUNCH 



CM 



I 

o 
I 

o 
o 
o 



X 

0- 



1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 



51 01313- 
16 20000 
55 10000 
51 01313 
55 10000 
51 01313 
55 10000 
51 01313 
32 20000 
35 01264 
00 77777 
37 01053 
41 01233 
37 01260 
41 01227 
37 01254 
37 01260 
41 01107 

54 01052 

31 01233 

32 10000 
73 0105? 
3? 01254 
51 01271 
47 01071 
13 01226 
11 01226 
21 01034 
21 01072 
45 00000 
11 01263 

55 01346 



2 00.00 
01063 
00006 
01233 
00006 
01227 
00006 
01107 
00016 
01052 
00000 
01054 
01247 
01056 
01250 
01061 
01061 
01250 
10107 
30000 
00000 
01226 
01250 
20000 
010^2 
01226 
30000 
01314 
01276 
31075 
01107 
00000 



SET SHIFT 
STORE 

R 
STORE 

L 
STORE 

R 

R • 2 1 ^-*-(A3 

SET NEXT INSTRUCTION 

STORE 10** 1 

SWITCH 

SHIFT P DIGITS 

CONVERT 

L TERMS 
SKIP DECIMAL POINT 
CONVERT 

REMAINING TE&M5 
1/2 10 R "L_^R0UH0IN6 TERMS 
In| • 10** 1 . 2 S — ►(A) 
ADD ROUNDING TERM 
STORE I N| • 2 s 
SHIFT SIGN 
SIGN SFNTINFt — KA) 
IS N NEGATIVE ? 
yes:-/n/« 2 s — +-N • 2 s 
STORE RESULT 
ADVANCE P 
ADVANCE D 

PRESET MATRIX STORE 
ROW WORD 1— -*-(0) 
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CARD READ AND PUNCH 



CM 



I 
l 

o 
o 
o 



X 

cu 



1100 


11 


01312 


01346 


SET INDEX = 3 


1101 


31 


01275 


00011 


SENTINEL — >-(A L ) 


1102 


32 


20000 


00003 


SL 4 (AJ * SL 3 (A J 


1103 


44 


01104 


01105 


BIT THIS COL. ? 


11C4 


32 


01127 


00000 


YES: ADD DIGIT 


1105 


46 


01106 


01102 


SENTINEL REACHED ? 


1106 


31 


20000 


00000 


yes: CLEAR (A w ) 


110? 


00 


00000 


00000 


ADD TO MATRIX 


1110 


21 


01107 


01315 


STEP MATRIX ST0RF INSTRUCTIONS 


1111 


41 


01346 


01101 


ROW WORD USED UP ? 


1112 


37 


01112 


01113 


SWITCH 


1113 


55 


01362 


00000 


ROW WORD 2 —^(0 ) 


1114 


37 


01112 


01100 


STORE BCD INFO.— ^-MATRIX 


1115 


55 


01376 


00034 


ROW WORD 3 


1116 


37 


01112 


0110! 


RCO INFO.— ^MATRIX 


1117 


16 


01124 


00000 


SET EMERGENCY RERUN 


1120 


45 


00000 


31120 


°< -SWITCH 


1121 


17 


00000 


20000 


START BULL 


1122 


37 


01122 


01123 


READ CONVERSION SWITCH 


1123 


36 


20000 


01107 


CLEAR PUNCH INDEX 


1124 


27 


20000 


01000 


SET TO PICKUP 


1125 


35 


01276 


01127 


NEXT CONTROL WORD 


1126 


35 


01275 


01016 


SET EXIT 


1127 


00 


00000 


00000 


CONTROL WORD-WA) 


1130 


11 


01300 


01127 


10-WMGIT 


1131 


75 


1005^ 


01117 


CLEAR MATRIX AND 


1132 


11 


01107 


01322 


CARD IMAGE 


1133 


32 


01273 


00000 


ADD PUNCH CODE 


1134 


37 


01120 


01013 


SE T ~< r 


1135 


15 


20000 


01143 


STORE p a 


1136 


32 


20000 


00016 


SL I5 (A) 


1137 


15 


200.00 


01177 


STORE D z 
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CARD READ AND PUNCH 





1140 


11 


01272 


01377 




1141 


11 


01265 


01400 




1142 


37 


01155 


01143 




1143 


55 


30000 


00000 




1144 


44 


01145 


01161 




1145 


37 


01155 


01161 




1146 


16 


01161 


01107 




1147 


75 


30003 


01151 




1150 


16 


01020 


01155 




1151 


37 


01120 


01154 




1152 


75 


20003 


0*154 




1153 


23 


01155 


01276 




1154 


H 


01124 


00000 




1155 


77 


00000 


30000 




1156 


77 


10000 


30000 




1157 


77 


10000 


30000 




1160 


45 


00000 


31160 




1161 


55 


10000 


00013 




1162 


51 


01313 


20000 




1163 


33 


20000 


00000 




1164 


35 


01267 


01200 


0- 
cm 


1165 


37 


01053 


01042 


r-i 
| 


1166 


44 


01220 


01167 


1 

O 


1167 


16 


01231 


01246 


O 
r»>4 


1170 


37 


01241 


01171 




1171 


41 


01233 


01234 


a. 


1172 


31 


01227 


00017 




1173 


35 


01270 


01174 




1174 


00 


00000 


00000 




1175 


31 


01314 


00023 




1176 


73 


01052 


1 0000 




1177 


12 


30000 


01233 



PRESTORE COLUMN SELECTOR 

PRESTOPE ROW SELECTOR 

SET SWITCH 

PARAMETFP WORD— *-(Q) 

LAST FIELD ? 

SET SWITCH 

SET PUNCH INDEX 

SET UP 

PUNCH ORDERS 
SET <^j 
STEP 

PUNCH ORDERS 
SET EMERGENCY RFRUN 
PUNCH 
ONE 
ROW 
T -SWITCH 
SL U (Q ) 
S_^(A) 
-S_^(A) 
SET SHIFT 

STORE BtL»Rt 10*- 1 
2ER0 SUPPRESS ? 
SET FOR NO ZERO SUPPRESS 
SHIFT 

B COLUMNS 
L • ? 16 — WA) 
SET NEXT INSTRUCTION 
STORE 10*- 

2 34 *~(A) 

l/2»2 35 /10*-L-*-ROUNDING TERM 
STORE /N| • 2 s 
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CARD READ AND PUNCH 



CM 



I 

o 
o 



a. 



1200 


00 


00000 


00000 


1201 


32 


10000 


00000 


1202 


73 


01174 


20000 


1203 


35 


20000 


01174 


1204 


37 


01241 


01205 


1205 


41 


01227 


01242 


1206 


16 


01262 


01241 


1207 


41 


01107 


01223 


1210 


41 


01107 


01242 


1211 


15 


01177 


01216 


1212 


21 


01143 


01314 


1213 


21 


01177 


01314 


1214 


16 


01155 


01241 


1215 


33 


01314 


00000 


1216 


55 


30000 


00000 


1217 


44 


01232 


01234 


1220 


37 


01246 


01170 


1221 


43 


01227 


01231 


1222 


45 


00000 


01234 


1225 


31 


01321 


00000 


1224 


35 


01400 


01226 


1225 


35 


01274 


01227 


1226 


00 


00000 


00000 


1227 


00 


00000 


00^00 


1230 


33 


01320 


010000 


1231 


37 


01246 


01232 


1232 


35 


01400 


01233 


1233 


00 


00000 


00000 


1234 


55 


01377 


00043 


1235 


44 


01236 


01241 


1236 


21 


01400 


01317 


1237 


42 


01266 


01241 



N . 2 3S —*-(l) 
A0D ROUNDING TERM 

In I . 2 35 /io t --~^(A) 
store |n| • ? 36 /io u 

L TIMES 

THRU CONVERSION 
DECIMAL POINT 

AND REMAINING TERMS" 
— *-!MAGE 
SET TO CHECK SIGN 
STEP P 
STEP 
SET EXIT 

-1— *-(A) 
N . 2* — ►(Q) 
NEGATIVE ? 

SET FOR ZERO SUPPRESS 
NO ZERO SUPPRESS IF L - 

3 — MA) 

SET FOR 3 PUNCH 

SET FOR 8 PUNCH 

STORE 3 PUNCH 

STORE * PUNCH 

SET FOR 12 PUNCH 

SET NO ZERO SUPPRESS 

SET NEXT INSTRUCTION 

STORE DIGIT IN IMAGE 

SRj COLUMN SELECTOR 

ADVANCE TO NEXT CARD FIELD ? 

YES: STEP ROW SELECTOR 12 ROWS 
THIRD FIELD ? 



Q-159 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



CV-129 

page ic 007-13 

REPORT Ztih9l~Z 

MODEL All 

DATE 3-20-56 



CARD READ AND PUNCH 



1240 


55 


01377 


00010 


YES! USE LAST 8 COLUMNS 


1241 


45 


00000 


31241 




1242 


31 


01174 


00002 


4N —WAJ 


1243 


32 


01174 


00001 


ION— *-(A) 


1244 


11 


20000 


01174 


STORE FRACTIONAL PART 


1245 


34 


20000 


00063 


INTEGER PART— -+~(R) 


1246 


47 


01231 


31246 


DIGIT = ? 


1247 


1.6 


01053 


01254 




1250 


41 


01127 


01253 


MATRIX INDEX 


1251 


21 


01253 


01314 


RESET INDEX 


1252 


16 


01240 


01127 


TRANSFER MATRIX WORD 


1253 


55 


30000 


00004 


SHIFT TO NEXT DECIMAL DIGIT 


1254 


37 


01254 


01255 


SWITCH 


1255 


31 


01233 


00002 


4N — *-(A) 


1256 


32 


01233 


00001 


ION — >-(A) 


1257 


52 


01316 


01233 


ION PLUS DIGIT — >~N 


1260 


45 


00000 


31260 




1261 


00 


00000 


01160 




1262 


00 


00000 


01210 




1263 


35 


01322 


01322 


PRESET 


1264 


11 


01276 


01052 


PRESET 


1265 


27 


01335 


01377 


PRESET 


1266 


27 


01363 


01377 


PRESET 


1267 


31 


01233 


00043 


PRESET 


1270 


U 


01277 


01174 


P*E5|!T 


1271 


00 


00000 


00014 


12 


1272 


40 


00000 


00000 


PRESET FOR COLUMN SELECTOR 


1273 


00 


OOOjOO 


00002 


2 


1274 


00 


00005 


00000 


5 . ? 15 


1275 


54 


00000 


00000 


MODIFY COMMAND 


1276 


00 


00000 


00001 


1 


1277 


00 


00000 


00001 


TABLE 



9-160 



FORM NO E T 1 j» 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO. CALIFORNIA 



CV-129 

page IC 007^f 

REPORT 2M U$X -** 
MODEL All 
DATE 3-20-56 



CARD READ AND PUNCH 



CM 



I 

I 

O 

o 



a* 



1300 


00 


00000 


00012 








1301 


00 


00000 


00144 




POWERS 




1302 


00 


00000 


01750 








1303 


00 


00000 


23420 




OF 




1304 


00 


00003 


03240 








1305 


00 


00036 


41100 




TEN 




1306 


00 


00461 


13200 








1307 


00 


05753 


60400 








1310 


00 


73465 


45000 








1311 


11 


24027 


62000 








1312 


00 


00000 


00003 


3 






1313 


00 


00000 


00077 


EXTRACTOR 




£314 


00 


00001 


00000 


u 


A0VANCF 




1315 


00 


00001 


00001 


u 


AND V ADVANCE 




1316 


00 


00000 


00017 


4 


BIT EXTRACTOR 




1317 


00 


00014 


00000 


u 


ADVANCE 




1320 


00 


00002 


00000 


2 


15 




1321 


00 


00003 


00000 


3 


•2' 5 




1322 


oa 


00000 


00000 


MATRIX W0R& I 




1323 


00 


00000 


00000 




2 




1324 


00 


00000 


00000 




3 




1325 


00 


00000 


00000 




4 




1326 


00 


00000 


00000 




5 




1327 


00 


00000 


00000 




6 




1330 


00 


00000 


00000 




7 




1331 


00 


00000 


00000 




8 




1332 


00 


00000 


00000 




9 




1333 


00 


00000 


Q0000 


IMAGE FIELD I ROW 


12 


1334 


00 


00000 


00000 






11 


1335 


00 


00000 


00000 









1336 


00 


00000 


00000 






1 


i337 


00 


00000 


00000 






2 
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CARD PEAD AND PUNCH 





1340 


00 


00000 


00000 




3 




1341 


00 


000(H) 


00000 




4 




1342 


00 


00000 


00000 




5 




1343 


00 


00000 


00000 




6 




1344 


00 


00000 


00000 




7 




1345 


00 


00000 


00000 




8 




1346 


00 


00000 


00000 




9 




1347 


00 


00000 


00000 


IMAGE FIELD II 


ftOW 12 




1330 


00 


00000 


00000 




11 




1331 


00 


00000 


00000 









1352 


00 


00000 


00000 




1 




1353 


00 


00000 


00000 




2 




1354 


00 


00000 


00000 




3 




1355 


00 


00000 


00000 




4 




1356 


00 


00000 


00000 




5 




1357 


00 


00000 


00000 




6 




1360 


00 


00000 


00000 




7 




1361 


00 


00000 


00000 




» 




1362 


00 


00000 


00000 




9 




1363 


00 


00000 


00000 


IMAGE FIELD III 


POW 12 




1364 


00 


00000 


00000 




11 




1365 


00 


00000 


00000 







CM 
1—1 


1366 


00 


00000 


00000 




1 


I 
1 


1367 


00 


00000 


00000 




2 


O 
O 


1370 


00 


00000 


00000 




3 


1— I 


1371 


00 


00000 


00000 




4 


X 

Oi 


1372 


00 


00000 


00000 




5 




1373 


00 


00000 


00000 




6 




1374 


00 


00000 


00000 




7 




1375 


00 


00000 


00000 




P 




1376 


00 


00000 


00000 




9 




1377 


00 


00000 


00000 


COLUMN SELECT0P 






1400 


00 


00000 


00^00 


ROW SELECT0P 
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CARD PI3HCH ROUTINE IC006 

This routine converts specified binary numbers into decimal and causes 
them to be punched into cards. It require* 2^5 octal words of ES in which 
to operate, constants and temporary storage included. It is possible to 
convert and punch as many as forty fields in a card and have 17 ms computing 
time available between references to the punch routine • 

The following information is required: 

1) Binary scaling 

2) Decimal scaling 

3) Locations of fields on the card 
h) Zero suppression 

This information is supplied to the card routine in a standard form 
called a parameter word. One parameter word is required for each field. 
A field consists of a number of consecutive card columns. Ths Ust 
column of the field is reserved f<r the sign of the decimal number stored 
in that field. An 11-punch signifies a negative number, no punch (blank 
column) signifies a positive number. A combination 12, 3 and 8 punch in 
one column represents a decimal point. 

Fields need not be adjacent-there may be unused columns, punched 
unpunched, between them«*or need they be alike in site. 
This routine is entered from line y as follows t 

y) 37 Onrana Ommmm (to card routine) 
y t 1) AB OPPPP ODDDD (control word) 
y + 2) Hext instruction 



or 



repress the beginning addr„, (SS operating addre 8B ) of tho 
card routine. 
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The 37 command records in Onramm the address of the control word. The 
routine is then entered at Ommram. After finishing its operation, the card 
routine exits to y 4- 2, the line following the control word. 

CONTROL tfORD 
the control word controls the operation of the card routine Its 
composition- is as follows i 

AB OPPPP ODDDD 

A. The first octal digit, controls positioning of cards in the read 
and punch channels of the Bull Reproducer. 

A — 1 Piok a card from the read hopper. 
A=2 Piok a card from the punch hopper* 

B. The second octal digit, controls the operation to be performed. 
B=2 punch a card. 

OPPPP is the address of the first parameter word. 
ODDDD is the address of the first data word. 
OPPPP and ODDDD must both be ES addresses. 

PARAMETER WORD 

A parameter word consists of twelve octal digits divided into six 
groups of two eachr 

FF SS BB LL RR ZZ 
FP» Flag for final parameter word. 
PP*77 octal for final word. 
FPsrOO otherwise. 

SS, Binary scaling factor. (Number of bits to the right of the 
binary point .) 

BB, Humber of blank or unused columns between previous field, or edge 
of card, and present field. 
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LLt Number of digit positions to the left of the decimal point* 
RRi Number of remaining; columns in the field exclusive of sign* 

RR=00 no decimal point and no decimal fraction* 
ZZt Flag for zero suppression. 

ZZ = 77 octal for zero suppression* 

22 = 00 for no zero suppression. Only teros in the integer 

part are suppressed. A zero immediately preoeding the decimal 

point is not suppressed. 
Total size of a field LL+RR+1 
Rans^ of Parameters t 

DECIMAL 
00 < SS it 35 
00 £ BB £ 63 
00 £ LL i 10 

00 £ RR ,£ 11 

01 4 LL -*~ RR £ 11 



OCTAL 
00 £ SS ^ k3 
00 £ 3B i 77 
00 ^ LL 4 12 

00 ^ RR £ 13 

01 4 LL 4- RR £ 13 



The parameter words, one for each field, must be stored consecutively 
starting at some ES Memory location 0PPPP. There must be an equal number of 
consecutive words starting with some ES memory location 0DDDD, filled with 
data for the punch routine. 

Punching takes place at the third card station in the punch channel, 
therefore, two punch cards must be advanced before punching can take place. 
This can be done manually, or the punch routine can be used to position the 
cards as follows t 



form i«ta— 4 



■^ToT 
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37 Gmmmm Ommonm (to card routine) 
20 00000 00000 (picfe punch card) 
37 Qmmmm Ommmm (to card routine) 
20 00000 00000 (pick punch card) 
It should be noted that onoe a card has entered either the read or 

punch channel it continues to advance one oard station each time the Bull 

Reproducer is cycled. 

Vumbers are rounded to the specified number of decimal digits after 

the decimal point before punching takes place. A divide check error stop 

results if an insufficient number of card columns is allowed for the 

integer portion of a field. 

In the event of a card machine failure or an accidental stop in the 
aiddle of a oard cycle, the current oard may be punched again i Soft (P A K) = 
00000, and START. 

The routine is coded in standard formj all constants are containea 
by the routine. 

Number of oells used by the routiner (201) ss (129) 

8 10 

lumber of temporaries immediately following routinei (U*) = (36) 

8 10 

lumber of words for assembly modification! (155) =. (10?) 

8 10 

Wumber of constants 1 (26) ss (22) 

8 10 

(liO) fields may be punched in a card. 
10 

17 m» computing time available between references to punch routine. 
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CARD PUNCH POUT I N^ 



iroo 6 



o 

CO 



i 

i 

o 
o 



X 

cu 



1000 


71 


01160 


30000 


1001 


15 


20000 


01027 


1002 


55 


20000 


00003 


1003 


32 


20000 


00013 


1004 


15 


20000 


01057 


1005 


31 


01155 


0000^ 


1006 


52 


01174 


200-00 


1007 


32 


20000 


00001 


1010 


44 


01011 


oion 


1011 


44 


01016 


01012 


1012 


17 


ooooo 


20000 


101? 


31 


oiooo 


ooooo 


1014 


35 


01157 


01015 


1015 


56 


00000 


01015 


1016 


32 


01155 


ooooo 


1017 


17 


00000 


20000 


1020 


27 


01201 


20000 


1021 


75 


10043 


01023 


1022 


11 


20000 


01202 


1023 


16 


01152 


ooooo 


1024 


11 


01154 


01015 


1025 


11 


01141 


OHIO 


1026 


37 


01112 


01027 


1027 


55 


30000 


ooooo 


1030 


44 


01103 


01031 


1031 


55 


10000 


00013 


1032 


51 


01175 


?0000 


1033 


33 


20000 


ooooo 


1034 


35 


01146 


01060 


1035 


55 


10000 


00006 


1036 


51 


01175 


01120 


1037 


55 


10000 


00006 



CONTROL WORD -*-(M 

SET PARAMETER PICKUP 

CONTROL V0RD • ? 3 — >-( A) # (0) 

CONTROL WORD . 2' 5 »-(A) 

SET DATA PICKUP 
RASfC niJLL rOOE — WA) 
EXTRACT PICK CODES 
SL 2 <A> 
SL 2 (0J 
PUNCH ? 
START RULL 
SP"T 

r X!J 
EXIT 

ADO PUNC W <"00r 
START BULL 
CLEAR 

IMAGE 
SET EMERGENCY RFQUN 
PRESTORE COLUMN SELECTOP 
PRESTORE ROW S^LECO^ 
SET SWITCH 

PARAMETER WOOD— *.(0) 
L*ST FIELD ? 

C L, 

S 

-s 



•u 



(o> 

-*~~ A 



SET UP SHIFT ORDER 
STORE 

B 
STORE 
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CARD PUNCH R0UTIN c 



o 

CO 



I 

o 
© 
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1040 51 01175 01111 

1041 32 20000 00016 
104? 35 01147 01043 

1043 00 0000* 00000 

1044 55 10000 00006 

1045 51 01175 01043 

1046 32 20000 00016 

1047 35 01150 01050 
}0F0 r\r\ no*O n fl^n^n 

1051 ^4 01.100 01052 

1052 16 011?? 01140 

1053 37 01133 01054 

1054 41 01120 01126 

1055 31 01176 000?3 

1056 73 01050 100Q0 

1057 1? 30000 011 20 

1060 oo ooooo 00*00 

1061 32 10000 00000 

1062 73 01121 ^0000 

1063 35 20000 01.050 

1064 37 01133 01065 

1065 41 11 11 1. 1 * 4 

1066 16 01151 0113? 

1067 41 01043 01115 

1070 41 01043 01134 

1071 15 01057 01076 

1072 21 01027 01176 

1073 21 01057 011-76 

1074 16 0111^ 0113? 

1075 33 01176 00000 

1076 55 30000 O000O 

1077 44 01124 01.126 



L 

L •■ ? /5 — WO 

C ET N?XT IN STRUCT TOM 

stope io u 

STORE 

R 
R • 2 lS — ^(A) 

SET NEXT INSTRUCTION 

ctopf \* R ~* 

7 PRO SUPPRESSION ? 

SET NO 7 FRO sU£ > P f ?ES c I'" u » 

SHIFT " COLUMNS 



1/2 10 -«•«. ? 3 *_ 

«36 



rounding tfpm 



35 



STORE 

ADD ROUNDING TERM 

N • ? 35 /1P L — *-(-"■) 
STORE |,N I • 2 36 /10 u 

L TIMTc; TMR»! 

STOPF !> rr P--AL PO T ^T 
REMAINING 
TERMS 
SET TO CH^CK" SIGN OFV N 
STEP PARAMETER 
ST^P D 
SE T FXT T 

-l — WM 

MEGATIVF ? 
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o 

CO 



i 
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X 

a. 



1100 


37 


01140 


01053 


1101 


43 


01111 


01123 


1102 


45 


00000 


01126 


1103 


37 


01112 


01031 


1104 


75 


30003 


01107 


1105 


11 


01143 


OHIO 


1106 


43 


01144 


01013 


1107 


16 


01152 


00000 


1110 


00 


00000 


ooooo 


1111 


00 


00000 


000O0 


1112 


00 


00000 


00000 


1113 


75 


20003 


01106 


111* 


23 


OHIO 


01160 


1115 


31 


01177 


00000- 


1116 


35 


OHIO 


01120 


1117 


35 


01156 


01121 


1120 


00 


00000 


•00000 


1121 


00 


00000 


00000 


1122 


33 


01200 


00000 


1123 


37 


01140 


01124 


1124 


35 


oiiio 


01125 


1125 


no 


00000 


OO^op 


1126 


55 


01015 


00043 


1127 


44 


01130 


01133 


1130 


21 


OHIO 


01153 


1131 


42 


01142 


01133 


H 32 


^5 


1 1 * 


00010 


1133 


45 


00000 


3113 3 


1134 


31 


01050 


00002 


1135 


32 


01050 


00001 


1136 


11 


20000 


01050 


1137 


34 


20000 


00063 



SPT POP 7rpo SUPPRESSION 

NO ZERO SUPPRESSION, IF L = 

SET SWITCH' 
SET UP 

PUNCH ORDERS 
ALL 12 ROWS PUNCHED ? 
SET EMPRsrNrv pfpmm" 
PUNCH 

ONE 

ROW 
STEP 

PUNCH 0"D c RS 
3— *-(A) 
SET FOR 3 PUNCH 
SET TOR ft PUNCH 
STORE 3 °UNCH 
STORE 8 PUNCH 

sft for 12 p\mchf 

SET NO ZERO SUPPRESSION 
SET NEXT INSTRUCTION 
STORE DIGIT PUNCH 
SRj COLUMN SELECTOR 
ADVANCE . T 0* NEXT CARD FIPL^.? 
STEP ROW SELFCTOP 12 ROWS 
THIRD CA&O FI r L^ ? 
US r LAST b COLUMNS 

4N — p-(A) 

ION— ^(A) 

STORE FRACTIONAL PART 

INTEGER PART — »-(a) 
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CARD PUNCH ROUTINE 



1140 


47 


01123 


31140 


HIGH =0 ? 




1141 


27 


01203 


01015 


PRESET 




114? 


27 


01231 


0101* 


PRESET 




1143 


77 


00000 


01244 


PRESET 




1144 


77 


10000 


01214 


PRESET 




1145 


77 


10000 


01230 


PRESET 




1146 


31 


01120 


0004? 


PRESET 




1147 


11 


01161 


01121 


PRESET 




1150 


11 


01160 


010*0 


ORFSET 




1151 


00 


00000, 


01070 






1152 


00 


00000 


01000 






1153 


00 


00014 


oonoo 


U AOVANC c 




1154 


40 


00000 


ooono 


PRESE T FOR COLUVN 


SELECT0 D 


1155 


00 


00000 


00002 


2 




115S 


00 


00005 


00000 


5 . 2 15 




1157 


54 


00000 


00000 


54 • 2 3 ° 




1160 


00 


00000 


00001 


1 




1161 


00 


00000 


00001 


TABLE 




1162 


00 


00000 


00012 






1163 


00 


00000 


00144 


POWERS 




t%64 


00 


00000 


01750 






1165 


00 


00000 


23420 


OF 




1166 


00 


00003 


03240 






1167 


00 


00036 


41100 


TEN 




1170 


00 


00461 


13200 






1171 


00 


05753 


60400 






1172 


00 


73465 


45000 






1173 


11 


24027 


62000 






1174 


00 


00000 


00003 


3 




1175 


00 


00000 


00077 


EXTRACTOR 




1176 


00 


00001 


00000 


1 . ?" 




1177 


00 


00003 


00000 


3 • 2 15 
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o 

CO 



I 

o 
o 



X 



1200 


no 


00002 00000 


2" 


1201 


00 


00000 00000 


CARD FIEL.D 1 ROW 12 


1202 


00 


00000 00000 


11 


1203 


00 


00000 00000 


o 


1204 


00 


00000 00000 


1 


1205 


00 


00000 00000 


2 


1206 


00 


00000 00000 


3 


1207 


00 


00000 00000 


4 


12 10 


00 


00000 00000 


5 


1211 


00 


00000 00000 


6 


1212 


00 


00000 00000 


7 


1213 


00 


00000 00000 


8 


1214 


00 


00000 00000 


9 


1215 


00 


00000 00000 


CARD FIELD II ROW 12 


1216 


00 


00000 00000 


11 


1217 


00 


00000 ooooo 


o 


1220 


00 


00000 ooooo 


1 


1221 


00 


ooooo ooooo 


2 


1212 


00 


ooooo ooooo 


? 


1223 


00 


ooooo ooooo 


4 


1224 


00 


ooooo ooooo 


5 


122$ 


00 


ooooo ooooo 


6 


lt26 


00 


ooooo ooooo 


7 


1227 


00 


ooooo ooooo 


8 


1230 


00 


ooooo ooooo 


9 


1231 


00 


ooooo ooooo 


CARD FIELD III ROW 12 


1232 


00 


ooooo ooooo 


11 


1233 


00 


ooooo ooooo 


o 


1234 


00 


ooooo ooooo 


1 


1235 


00 


ooooo ooooo 


2 


1236 


00 


ooooo ooooo 


3 


1237 


00 


ooooo ooooo 


4 
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CAPn PUNrn ROUT INF 

1240 00 00000 00000 5 

1241 00 00000 00000 6 

1242 00 00000 00000 7 

1243 00 00000 00000 8 

1244 00 00000 00000 9 



o 

CO 



1 

o 
I 

o 
o 
o 



a- 
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TWO CYCLE READ 01LT CARD RGUTIHB 



IC005 



This new card routine operates on a two cycle basis, asking more 
efficient use of the card cycle time than the previous routine. As a 
result, as many as forty fields nay be read from each card without 
causing any timing difficulties. In addition, this nev routine requires 
less M space than the former read routine. 

Two basic operations are performed by this routine during the 18- 
point card cycle. The first five points (about 140 ns) are used to 
decode the control word and to perform the final conversion of information 
read during the previous read cycle. The remainder of the card cycle is 
used to read information from the present card and convert this in* 
formation into binary coded decimal form. The binary coded decimal 
information is then converted to binary and scaled during the first part 
of the next card cycle. Thus, although It takes two card cycles to 
complete the operation of reading and converting, the net effect is 
conversion of one card each card cycle. 

A time of as much as Ik ms may be used for computation between 
references to the read routine without causing the bull to skip a cycle. 

The read routine may be used to perform any combination of the 
following operations according to the contents of a control word 1 



Pick (Prime) a 
Pick (Prime) a punch 



1. 
2. 
3. Pick a read 



read card 
card 
card and read 



The conversion operation is automatic and is always performed 
during the card cycle occurring with the next use of the read routine. 
This card routine requires the following information : 

1. Binary scaling 

2. Decimal scaling 

3* Locations of fields on the card. 

This information is supplied to the card routine in a standard 
form called a parameter word. One parameter word is required for each 
card field. 

A field consists of a number of consecutive card columns. The 
last column of a field is reserved for the sign of the decimal number 
stored in that field. An li-punch signifies a negative number, no 
punch (blank column) signifies a positive number. A combination 12, 
3 and 8 punch in one column may be used to represent a decimal point. 

Fields need not be adjacent— there may be unused columns, punched 
or unpunched, between them— nor need they be alike In site. 
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Entry to the card read routine from line y is effected aa 
follows t 

Omnia (To read routine) 

ODDDD (Control word) 

vvyyv (next Instruction) 

Onmnm represents the beginning address (ES operating address) 
of the card routine. The control word is described below. 

The 57 command records in Gmomm the address of the control word. 
The routine is then entered at Orannm. After finishing Its operation, 
the card routine exits to y*2, the line following the control word. 

Control Word Composition 1 

At First octal digit, controls picking of cards in either 
channel of the bull reproducer. 

A«0 Do not pick 

A=± Pick read card 

tvQ. Pick punch card 

A«3 Pick both read and punch 

Bi Second octal digit, controls the reading operation. 

B*0 Do not read 
B«l Read a card 

OPPPP ES Address of the first parameter word. 

ODDDD 88 Address where the number from the first card field. Is 



QPppp and ODDDD are required only if conversion is being per- 
formed during the card cycle. 

One parameter word is required for each card field . Para meter 
words must be stored consecutively beginning at address QPPPP. 
numbers read from the card are stored consecutively beginning at 
address ODDDD. 



(y) 


37 


Omuium 


(y+D 


AB 


OPPPP 


<y*2) 


HI 


uuuuu 



Parameter Word Composition: 
FF SS BB IX RR 



ZZ 



FFi Flag for final parameter word 

FF-77 (octal) for final parameter word 
FF=O0 otherwise 

SS| Binary scaling factor (number of bits to the right of the 
binary point) of converted number. 

BQ Rumber of blank or unused card columns to the left of the 
field. 
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LLt Number of columns (digit positions) to the left of the 
decimal point. 

RR: Vumber of remaining columns in the field, exclusive of sign 
(number of deciml digits to the right of the deciml point 
plus one for the deciml point). 

RR*00 indicates no deciml fraction and no decimal point. 
ZZ t Sot used. 



Range of Parameters: 

Deciml 
00 ^ SS £ 35 
00 $ BB $ 63 
00 $ LL £ 10 

00 £ RR £±1 

01 $ IL * RR £ il 



Octal 
00 $ SS i k3 
00 £ BB CT7 
00 ^LL 4 12 

00 £ RR (. 13 

01 $ IX * RR £13 



R ea ding takes place at the second card station in the read channel- 
one read card must be advanced before reading takes place. Shis may be 
done manually, or nay be done as follows : 

37 
10 



(to card routine) 
00000 00000 (pick read card) 



The card just advanced trill not feed further unless another order 
to pick a card is given— both pick %d read orders must be given to 
read this card. 

It should be noted that once a card enters either the read or punch 
channel it continues to advance one card station each time the Bull 
Reproducer is cycled. 

The information read from the card is stored within the card 
routine in coded decimal form. Thus, if the subroutine is destroyed 
between card cycles, this information will not be converted on the 
following card cycle. 

Use of the read routine causes the Bull Reproducer to go through one 
card cycle 1 if a series of cards is to be read, there must be a reference 
to the read routine for each card. 
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example of coding used to read a stack of n cards 1 



57 

10 00000 00000 Pick card #1 



57 

11 00000 00000 Pick card 2, read card 1 



57 

U 0PPPP 0DD8BD Pick card 5, read card 2, conv. card 1 



57 

11 0PPPP QDDDD Pick card k, read card 5, cow. card 2 



57 

11 0PPPP 0DDDD Pick card nfl, read card n, cony, card n-1 



57 

00 0PPPP 0DDDD Convert card n 

la case of a card machine failure or an accidental stop In the 
middle of a card cycle, the current card may be reread 1 reposition the 
cards, set (PAK)*)0000, and start U05. 

This routine is coded in standard form. 

All constants are contained by the routine. 

Vumber of words 1 

Used by the routine , (16U) - (U6) 

(1*0* - (12) £< 



For assembly modification 1 (1M) 8 * (97) 
Used for constants 1 (25)" - (19) 

Forty fields may be read from a card. 



14ms computing time available between references to the card 
routine. 
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MODEL « j* 
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CARD PFAH ROUTINE 



TC0P<5 



CO 



I 

o 
o 



X 
0- 



1000 


71 


01142 


30000 


CONTROL W0&D — >-A 


1001 


15 


20000 


01061 


STCTF PAPA^TFR W0RP 


1002 


16 


20000 


1116 


STCPE DATA '-'OPO 


1003 


55 


200C0 


00^03 


CONTROL WORD — +-(^) 


1004 


31 


01163 


00001 


BULL CODE - ?r z — >-(A; 


1005 


52 


01156 


20-000 


c'XTPArT DICK C0P c S 


1006 


32 


20000 


00^01 


C ^ (A) 


1007 


55 


inooo 


00002 


tl 2 (o; 


1010 


44 


1 1 y 


01 01 1 


*TAP ? 


1011 


1 7 


00000 


"> Ct A c. 


CTART CAPO CVCLF 


1012 


37 


01012 


01013 


C0NVEPSI0N SWITCH 


1013 


37 


01013 


01014 


READ SWITCH 


1014 


31 


0100^ 





err 


1015 


•35 


01141 


01016 


EXIT 


1016 


00 


00000 


00000 


ROW WORD 3 


1017 


32 


01142 


00000 


ADD READ CODE 


1020 


37 


01013 


01011 


SET TO RFAD 


1021 


36 


20000 


01176 


STORE 


1022 


75 


10011 


01024 


CL r AR 


1023 


11 


20000 


01164 


MATRIX 


1024 


16 


01140 


00000 


SET RERUN 


1025 


16 


01034 


01176 


Q-*- DIG IT 


1026 


76 


00000 


01016 


READ 


10?7 


76 


10000 


10000 


ONE 


1030. 


76 


10000 


0.1177 


POW 


1031 


37 


01031 


01032 


LAST ROW SWITCH 


1032 


11 


01136 


0104 2 


PRESET MATRIX STO^E 


1033 


11 


01156 


01175 


SFT INDEX - 3 


1034 


31 


01141 


00011 


SENTINEL — *-(*».) 


1035 


32 


20000 


00003 


SL 4 (A R ) • SL 3 (A J 


1036 


44 


01037 


01040 


PIT IN THIS COLUMN ? 


1037 


32 


01176 


00000 


YES ; ADD-DIGIT 
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CARD READ ROUT I MP 



1040 


46 


01041 


01035 


1041 


31 


20000 


00000 


104? 


00 


00000 


00000 


1043 


21 


01042 


01161 


104& 


41 


01175 


01034 


1045 


37 


01045 


01046 


1046 


55 


01177 


00000 


1047 


37 


01045 


01033 


1050 


55 


01016 


00034 


1051 


37 


01045 


01034 


1052 


37 


01052 


01053 


1053 


41 


01176 


01026 


1054 


37 


01052 


01025 


1055 


37 


01031 


01026 


1056 


37 


01012 


01014 


1057 


15 


01136 


01126 


1060 


37 


01121 


01061 


1061 


55 


30000 


00000 


1062 


44 


01063 


01064 


1063 


16 


01012 


01121 


1064 


55 


10000 


00013 


1065 


51 


01157 


20000 


1066 


16 


20000 


01107 


1067 


55 


1000O 


00006 


1070 


51 


01157 


01175 


1071 


55 


10000 


00006 


1072 


51 


01157 


01177 


1073 


55 


10000 


00006 


1074 


51 


01157 


01016 


1075 


32 


20000 


00016 


1076 


35 


01135 


01077 


1077 


00 


00000 


00000 



REACHFO SFNT1NPI ? 

REMOVE 5FNTINFL 

ADD TO MATRIX WORD 

STEP MATRIX STORE ORDER 

ROW WORD EXHAUSTED ? 

SWITCH 

ROW WORD 2— *-(0) 

BCD I-NFO. — *~MATPIX 

ROW WORD 3 — *-(0) 

°CD INFO-^MATRIX 

SWITCH FOR SIGN ROW 

DIGIT-l-*nK5iT# RE.PFAT 

STORE 9*S FOR-SIGNS 

READ LAS' 1, ROW 

SET CONVERSION SWITCH 

PRFSTORE MATPIX TPANSFcp 

SET CONVERSION REPEAT 

PARAMETER WORD 1— »~(Q) 

LAST FIELD ? 

SET CONVERSION EXIT 

SL n (Q) 

SET 

SHIFT 

STORE 

e 

STOPE 

L 
STORE 

R 
R • 2 ,b — p-(A) 
SET NEXT INSTRUCTION 
STORE 10*~ 2 
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fARD RF,An- POUT IMF 



CO 



1 

o 

I 

o 
o 
o 



X 
CL, 



11^0 41 0117* Oil?? 

1101 37-01134 01102 

1102 41 01177 01123 

1103 37 01130 01105 

1104 37 01134 01105 

1105 41 01016 01123 

1106 54 01077- 10107 

1107 ?1 0117* ''none 

1110 32 10000 00000 

1111 73 01077 01077 

1112 37 01130 01123 

1113 51 01163 20000 

1114 47 0111* 011 1 A 

1115 13 01077 01077 

1116 11 01077 30000 

1117 21 01061 01160 

1120 21 01116 01142 

1121 45 00000 31121 

1122 16 01137 01130 

1123 41 01176 01127 

1124 11 01163 011-76 

1125 21 01126 01160 

1126 11 30000 01164 

1127 55 01164 00004 

1130 37 omo nmi 

1131 31 01175 00002 

1132 32 01175 00001 

1133 52 01162 0n7* 

1134 45 00000 31134 

1135 11 01142 0107? 

1136 35 01164 01164 

1137 00 00000 01100 



SHIFT n rTGITS 
CONVERT 

I TERMS 
SHIFT OEriMAL POINT 
CONVERT 

REMAINING TER^c 



R-l 



ROUNDING TERM 



1/2 - 10 

M . I^' 1 # <>S _, >t ^ j 

ADO ROUNDING Trr?w 
STORE \< • 2 S 
SHIFT SIGN 
SIGN DIGIT —*.(*) 
SION wr^ATTVE ? 
YES! -N •— *~N 
STORE RESULT 
A.OVANCF P 
ADVANCE D 



MATRIX WORH pyMA.tjCTcr ? 

YES: RESET INDEX 

STEP TRANSFER 

TRANSFER NEW MATRIX WOR^ 

SHIFT TO NEXT DEC# DIGIT 

SWITCH 

'am -wa; 

1 ON — *-<A ) 

ION PLUS OTGIT — *~M 

CONVERSION PX1T 

PRESET 

PRESET 
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CAf?D READ POUT IMP 



1140 


00 


06000 


oioo^ 






1141 


54 


00000 


ooooo 


MODIFV COMMAND 




1142 


00. 


00000 


00001 


1 




1143 


00 


00000 


00001 


TABLE 




1144 


00 


ooooo 


oooi? 






1145 


00 


00000 


00144 


POWERS 




1146 


00 


ooooo 


01750 






1147 


00 


ooooo 


23420 


OP 




1150 


00 


00003 


03240 


TEN 




1151 


00 


00036 


41100 






115? 


00 


00461 


13200 






1153 


00 


05753 


60400 






1154 


00 


73465 


'-^000 






1155 


11 


24027 


62000 






1156 


00 


ooooo 


O0003 


3 




1157 


00 


ooooo 


00077 


FX^ACTOe 




1160 


00 


000O1 


OO^Ofi 


U AOVANCF 




1161 


00 


00001 


00001 


•J A NO V- ADVANCE 




1162 


00 


ooooo 


00017 


L pjT rxTPACTOR 




1163 


00 


ooooo 


00010 


8 




1164 


00 


ooooo 


OOOOO 


va t ptx word 


1 


1165 


00 


0000^ 


00° 00 




2 


1166 


00 


ooooo 


00000 




3 


1167 


00 


oooo n 


ooooo 




4 


1170 


^0 


nnno^ 


oo^oo 




e; 


1171 


00 


ooooo 


ooooo 




6 


1172 


00 


ooooo 


ooooo 




7 


1173 


00 


ooooo 


OOOOO 




fl 


1174 


00 


ooooo 


ooooo 




o 


1175 


00 


ooooo 


ooooo 


INDEX 




1176 


00 


ooooo 


00000 


DIGIT 




1177 


00 


OOOon 


cooo^ 


ROV- ','.'ORD 2 
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o 






aaufncw of sd cltambo ps lxjbar ksdatiois 

BY BB MBTBOD OF CSDDT 

Piiar i - i a m aw c ri o i 

B&« program is applicable to systems of a sanations in a unknowns of the 

a*,X t ¥dnt. Xa. + * • ' T- *„,* XV * ^^ **y 

where n*91. 

this routine employs tht floating point two-register aumber rep r e s en t ation 
and the corresponding Arithmetic Package CA001. 

PART II - AWUBIS 

In addition to the girea (augasntcd) matrix LAI 3 

tht method reeulres taa formation of an auxiliary natrix [M] 

q\ ^jl/ -fit**. • * • &%. n*W 

which in naad in generating the solutions 



*# y X; 



>*/ 



The aleaants of the auxiliary natrix are determined by 
An = ^2// 1-1,2^ • • • «, 

4) ~ 2r* - - 

The solatioas are determined by 

*) V . _ /?. - ^. #/* X* /= /, z, • • V *> 

«ne steps which lead to a) and 5 J are dsearlbed in detail in section on 
nethad of elimination la the chapter on simultaneous linear eemetlone in 
■ aaii leal Oelcniua. by Wine* 

The eolations are Improved by a reeurslTS procedure. Suppose the 

solutions first obtained by use of 5> are denoted by % ♦ Then modified 
system 
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CL. 



<&i >*, f ^/z.Xa. f 






is solysd to obtain a first sst sf oorrsstlons 'X^. 

SJOdlflsd SyStSM fc .- * v 



U solTsd to obtain b sssoad bb% of sorrsotlsns °X> • WhSB ths rltfit 
(diffBrsneas) of tho nodiflsd mtsaa baoone tolerably cIobb to 
>, ths final eolations srs obtBlnod by adding the ooarrBotioaB to %• • 
This progran provides for fir* dstaralnstlons of dlffnrancss by sotting 

SB BpfVOprlBtB dl ffBl'BW i itBTBtiOB lnisX register. 



PAW III- PKMSUMGVG 



PKXJHAMOTPS 



1. FT load* ths rOntittSS, SBCOSSt CSTd read, OtttO tho 

rood noes to B8* 



Csrd 



2. An inane of tho oord rood routine is storod on tho dma. 
5* Tho cards are rood onto tho dnau 

k. An exit fro. ths eard rond roatlns is eseeated at (PAK) 5557. 

3. Tho noln routine sad srithnetle psekags btb rood into B5U 

6. The eonpntstion of *) begins. 

7. Problem ends sad 1b sot np to bsgin tho sslntlon of anothsr 
system of eematlons. 



of rows of tho 
dining oolamns blank* 



Data eardat (Uvea astrlx is panohod by res* nth a now card to bsgin aaeh 
(fcctra seres, which sra nsad to fill tho cards in kssplng with tho shove 
, srs dalatad effcsr read-la.) Refer to X0003-1. 



Hsadsr esrds It Is to contain only n (tho - 
given matrix) paaohad in oolnans 5 sad 6 with ths 
V (amanired by X0003) la competed. 



output 

Ths final solatia©* snd thsir assoslatad 
sash tin* oompated. HsfSr to XOOO*. 



srs punched in 



romt hh«<-4 
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CM 

CO 



o 
o 



X 

a, 



part it - OFEunoiAL mxmom 




1* Plaoe lnyut cards 1b reed hopper, 


blank oarda In punch hoppar. 


2* FT load program* 




3- M> start (*0000)« 




4* Final atop* 




mma stops 




MB 1 For debugging parpoaeo 




16 2 Far debugging iwjjbm 




MB 3 To stop problem after each row 


of tba auxiliary 


matrix it BaayuUd* 




PAXLHBS 




In ease of m failure described below. 


start tba problan again* 


1* An attempted division by sere amy seenr with (M*)«365 if nay 


diagonal ail aneat of the auxiliary matrix la aero* Interchange 


a pair of roaa of tha given aatrlx ( inter enaage the appropriate 


input oerds) and try again* 




2. MCT or SOC fault* 




PXXBUN SAMPLER 




itntonatlc blotto damps of data ragion 


1 are provided* 


START 


RMP8 


00630 low of given nmtr 


UiiMit sample tine* 


00633 Oolunu of ancillary aatrlx In M at sample tine* 


OO636 CM J storaga by ro 


as* 


006*3 CM ] storage by eo 


inane* 


8T0BAOI ASSftMBHS 




(Uvea aatrlx 


eSOQl-52270 


(A row of the given aatrlx) 


o$m*Lm 




5«»-7<*57 


(A oolnan of tba aaxUlary aatrlx) 


ODaOO-01577 


Final aolntlona 


76500-76677 


Main rontlna 


77250-77775 


Difference ltaratlon indax raglatar 


7776a 


Arlthnatle Package 


77125-77231 


IS inaga (atorad daring panehing) 


7*001-75777 


Corrections to answers 


01200-01377 


Punch rontlna 


7O**O-7ia07 


Storaga of original 18 data 


71220-7^26 


Available 


5Bam-56077 



fO*M 1*1* -4 
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CROUT 



CM 005 



CM 

CO 



I 

I 

o 
o 



cu 



40000 
71220 
71221 
71222 
71223 
71224 
71225 
71226 

77250 
77251 
77252 
77253 
77254 
77255 
77256 
77257 
77260 
77261 
7726? 
77263 
77264 
77265 
77266 
77267 
77270 
77271 
77272 
77273 
77274 
77275 
77276 



00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 



45 00000 71220 
75 31777 71222 
11 00001 71230 
75 31777 71224 
11 71230 00001 
11 71226 40000 
45 00000 00300 
45 00000 71222 



00 00000 
00 00000 
00 00000 
00 00000 
00 00000 

00 00000 
^0 00000 

00 00000 
00 00000 
00 00000 

00 00000 

00 00000 

00 00000 

00 00000 
00 00000 
00 00000 

00 00000 

00 00000 
00 00000 
00 00000 

00 00000 

00 00000 
00 00000 



00000 

00000 
00000 
00000 
00000 
00000 

00000 

00000 

00000 

00000 

00000 
00000 

00000 

00000 

00000 
00000 
noooo 
00000 

00000 

00000 
OOOno 
00000 
00000 



START-* 

STORE CARD INPUT RT. 

TRANSFER CARD INPUT RT. 

TO ES 

SET FOR NEXT MATRIX RFAI> 

JUMP TO READ MATRIX 

PRESET 

STORAGP 
L 



(30000 + 2n+-2) * 2 

( 30000 +^n) • 2 ls 

J 

LZh(i-i) + zi-il • 

Bt-AN K 

k' 

K 

n XNDEX 

2 n 



15 



IS 



zn 



lb 



15 
IS 



(2J-1) *2 
(Zh+1) '£ 

[%} 
5n(f7rUi)= N 

2M/n • Z 15 

6LANK 
(h-Z.) XND£% 

( n-i) 
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CHUT 



CM 



I 

o 
1 

o 
o 
o 



X 

a. 



77277 


00127 


00 


00000 


00000 


77300 


00130 


^0 


0^000 


00000 


77301 


00131 


00 


00000 


00000 


77302 


00132 


00 


Onooo 


00000 


77303 


00133 


00 


00000 


r>. 


77304 


00134 


00 


00000 


00000 


77305 


00135 


00 


00000 


00000 


77306 


00136 


00 


00000 


00000 


77307 


00137 


11 


01577 


00025 


77310 


00140 


no 


00002 


*oooo 


77311 


00141 


00 


30000 


00000 


77312 


00142 


11 


40000 


01600 


77313 


00143 


11 


56077 


01400 


77314 


00144 


11 


01577 


00111 


77315 


00145 


11 


01^77 


000?5 


77316 


00146 


11 


01377 


00027 


77317 


00147 


00 


00000 


00344 


77320 


00150 


11 


00111 


01577 


77321 


00151 


11 


01577 


00027 


7732? 


00152 


11 


01600 


*6077 


77323 


00153 


11 


56077 


01600 


77324 


00154 


11 


00111 


01377 


77325 


00155 


00 


o^ooo 


01200 


77326 


00156 


11 


01377 


00025 


77327 


00157 


1] 


01^77 


000 27 


77330 


00160 


75 


30530 


77332 


77331 


00161 


11 


77?*0 


00100 


77332 


00162 


7 5 


300^0 


00164 


77333 


00163 


11 


77040 


006^0 


77334 


00164 


75 


30105 


00166 


77335 


00165 


11 


77175 


01000 


77336 


00166 


11 


00140 


20000 



P*F$ET$ 



Rou T rr'F 



FS 



EMERGENCY PUNCH-OUT — *-F^ 



ARITHMETIC PACKAGE — *-ES 



■ET 
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CROUT 



CM 

CO 



I 

I 

o 
o 
o 



X 

a, 



77337 
77340 
77341 
77342 
77343 
77344 
77345 
77346 
77347 
77350 
77351 
77352 
77353 
77354 
77355 
77356 
77357 
77360 
77361 
77362 
77363 
77364 
77365 
77366 
77367 
77370 
77371 
77372 
77373 
77374 
77375 
77376 



00167 
00170 
0OV71 
00172 
00173 
00174 
00175 
00176 
00177 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00 210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 



7? 00140 
35 00141 
15 20000 
15 20000 
71 00101 
11 20000 

11 oomi 

73 00224 
35 00074 
71 2^000 
11 20000 
31 00121 
73 00101 
71 00041 

35 00041 
11 00101 

36 00041 
11 00122 
35 00215 
11 00123 
35 00217 
75 00000 
11 40001 
75 00000 
11 01600 
21 00215 
21 00217 
41 00125 
56 10000 
00 00000 
00 OOnno 
00 00000 



00101 
20000 
00214 
00216 
00224 

00010 

20000 
20000 
20000 
00010 
00121 
00020 
00122 
00101 
00123 
20000 
00125 
20000 
00215 
20000 
00217 
00216 
01600 
00220 
40001 
00122 
00123 
00214 
00227 
00005 
nOOrtfl 

00000 



ROW 



TRANSFERS 



COMPUTE N 



NUMBER OF CELLS PER ROW 
INCLUDING EXTRA 2 c ROS 

NUMBER OF CELLS PER ROW 

INDEX FOR MATRIX fy] TRANSFER 
PRESETS 

TO DELFTF 
EXTRA 
?EROS 
TRANSFER ROW OF [m] TO FS 

TRANSFER ROW OF [M ] TO DRUM 

EXTRA ZEROS DELETED 
STEP U ADDRESS 
STEP V ADDRESS 

ALL ROV.'S TRAN5FF D RE n ? mo ; RFTUPM 
yes: TAKE 227 
5 

«LAN< 
BLANK 
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caouT 





17317 


00227 


75 


10200 


00231 


CLEAR ANSWER STO 




77400 


00230 


11 


00040 


76500 






77401 


00231 


16 


00623 


005*3 


SET SWITCH TTT 




77402 


00232 


71 


00101 


00041 






77403 


00233 


11 


20000 


00114 


CLEAR 




77404 


00234 


31 


00114 


00017 






77405 


00235 


11 


20000 


00115 


[m] 




77406 


00236 


11 


00115 


20000 






77407 


00237 


35 


00073 


00117 


MATRIX 




77410 


00240 


75 


17777 


00242 






77411 


00241 


11 


00040 


56100 


STORAGE 




77412 


00242 


11 


00074 


00100 


SET ROW INDEX 




77413 


00243 


11 


00117 


20000 


SET 




77414 


00244 


35 


00073 


20000 


TO 




77415 


00245 


55 


00141 


00102 


TRANSFER 




77416 


00246 


11 


00115 


20000 


ROW 




77417 


00247 


35 


00141 


00103 


AND 




77420 


00250 


15 


00102 


00265 


COLUMN 




77421 


00251 


15 


0*10? 


f>0276 


TO 




77422 


00252 


15 


00103 


00422 


re 




77423 


00253 


15 


00102 


00462 






77424 


00254 


16 


00147 


00316 


SET SWITCH I a 




77425 


00255 


11 


00074 


00104 


SET COLUMN INDEX 


CM 


77426 


00256 


■u 


00100 


00140 




CO 
I— 1 


77427 


00257 


36 


00140 


20000 


PRESET 


1 

a- 
1 


77430 


00260 


71 


20000 


00101 


DRUM 







77431 


00261 


36 


00073 


20000 


ADDRESS 




77432 


00262 


72 


00140 


00100 


OF 


X 


77433 


00263 


11 


20000 


00105 


ROW 




77434 


00264 


35 


00142 


00266 






77435 


00265 


75 


00000 


00267 


TRANSFER ROW 




77436 


00266 


00 


00000 


00000 


OF [M] TO ES 



9-187 



SAN OIEGO CALIFORNIA 



page cu 005-3 

REPORT 2M 1+91 

MODEL All 

DATE 3-2C-56 



CROUT 



77437 


00267 


56 


10000 


00270 




77440 


00270 


11 


00104 


20000 




77441 


00271 


36 


00074 


20000 


PRESET 


77442 


00272 


71 


20000 


00101 


DRUM 


77443 


00273 


71 


20000 


00140 


ADDRESS 


77444 


00274 


35 


00073 


20000 


OF 


77445 


00275 


35 


00143 


00277 


COLUMN 


77446 


00276 


75 


00000 


00300 


TRANSFER COLUMN 


77447 


00277 


00 


00000 


00000 


OF [mJ TO ES 


77450 


00300 


56 


20000 


00301 




77451 


00301 


11 


00100 


20000 


ELEMENT TO RIGHT 


77452 


00302 


42 


n 104 


00306 


YES: TAKE 306 


77453 


00303 


11 


00104 


20000 


no: SET k' 


77454 


00^04 


36 


00074 


00107 




77455 


00305 


45 


00000 


00307 




77456 


00306 


36 


00074 


00107 


yes: SET k' 


77457 


00307 


11 


00074 


00110 


SFT K = 1 


77460 


00310 


71 


00104 


00140° 


TRANSFER 


77461 


00311 


36 


00073 


20000 r 




77462 


00312 


35 


00144 


00314 


FLEMENT OF [v] 


77463 


00313 


75 


30002 


00315 




77464 


00314 


00 


00000 


00000 


INTO ftll» 11?). 


77465 


00315 


11 


00107 


20000 


K I K' > TAKE ?44 


77466 


00316 


4? 


00110 


*0000 


4 .TAKE 317 


77467 


00317 


71 


00110 


00140 


PRESET ADDRESS OF 


77470 


00320 


36 


00073 


20000 


£u 


77471 


00321 


35 


00145 


00323. 




77472 


00322 


75 


30002 


00324 




77473 


00323 


00 


00000 


00000 


ci iK — *- (zs> zs) 


77474 


00324 


71 


00110 


00140 


TRANSFER 


77475 


00325 


36 


00073 


20000 




77476 


00326 


35 


00146 


00330 


O'KJ 
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CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO. CALIFORNIA 



CV-132 

PAGE CN 005-S 

REPORT ZM 1^91 

MODEL All 

DATE 3-20-p6 



CROUT 





77477 


00327 


75 


30002 


00331 






77500 


0033Q 


00 


00000 


00000 


INTO (27» 30) 




77501 


00331 


37 


01001 


01003 


PRODUCT OF ELEMENTS 




77502 


0033? 


13 


00031 


00027 






77503 


00333 


11 


00032 


00030 






77504 


00334 


11 


00111 


0002* 


&lj —+~ ( 25 • 2-6) 




77505 


00335 


11 


00112 


00026 






77506 


00336 


37 


01001 


0100? 


Q-ii — &-in &-Ki = * 




77507 


00337 


11 


00031 


00111 


X- +-(111, 112.) 




77510 


00340 


11 


00032 


00112 






77511 


00341 


21 


00110 


00074 


STEP K 




77512 


00342 


45 


00000 


00315 


RETURN 




77513 


00343 


00 


00000 


00000 


BLANK 




77514 


00344 


11 


00100 


20000 


J : L > TAKE 354 




77515 


00345 


42 


00104 


00354 


^ STORE RESULT 




77516 


00346 


71 


00104 


00041 


PRESET E? 




77517 


00347 


36 


00074 


20000 


ADDRESS FOR 




77520 


00350 


35 


00150 


0035? 


[m] storage 




77521 


00351 


75 


3000? 


00353 






77522 


00352 


00 


00000 


00000 


STORE RESULT 




77523 


00353 


45 


00000 


00367 






77524 


00354 


71 


00100 


00140 


DIVIDE 




77525 


00355 


36 


00073 


20000 




CM 


77526 


00356 


35 


00151 


00360 


BY 


CO 
I— 1 


77527 


00357 


75 


3000? 


00361 




1 

OS 


77530 


00360 


00 


00000 


00000 


DIAGONAL 






77531 


00361 


11 


00111 


00025 




I— 1 


77532 


00362 


11 


00112 


00026 


ELEMENT 


a* 


77533 


00363 


37 


01001 


01004 


OF [mJ 




77534 


00364 


11 


00031 


00111 


STORF 




77535 


00365 


11 


00032 


0011? 


RESULT 




77536 


00366 


45 


00000 


00346 


RETURN 
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CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



CV-132 
PAGE CH 00 5-* JO 

REPORT 2M ^ 91 
MODEL jQ]_ 
DATE 3-.20-56 



CPHUT 



I 

o 

o 
o 
a- 



x 



77537 
77540 
77541 
77542 
77543 
77544 
77545 
77546 
77547 
77550 
77551 
77552 
77553 
77554 
77555 
77556 
77557 
77560 
77561 
77562 
77563 
77564 
77565 
77566 
77567 
77570 
77571 
77572 
77573 
77574 
77575 
77576 



00367 o 

00370 

00371" 

00372 

00373 

00374 

00375 

00376 

00377 

00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 

00410 

00411 

00412 

00413 

00414 

00415 

00416 

00417 

00420 

004?1 

00422 

00423 

00424 

00425 

00426 



11 00101 

35 00074 
43 00104 
21 00104 
45 00000 
11 00101 
71 00100 

36 00074 
35 00152 
75 30002 
00 00000 
21 00401 
21 00401 
41 00113 
11 00101 
43 00100 
21 00100 
56 30000 
56 30000 
11 00101 
11 00101 
35 00074 
11 00101 
71 00101 
54 20000 
35 00073 

35 00143 
75 00000 
00 00000 
11 00101 
71 00100 

36 00073 



20000 
20000 
00374 
00074 
00267 
00113 
00041 
20000 
00401 
00402 
00000 
00114 
00140 
00400 
20000 
00411 
00074 
00255 
00412 
00100 
20000 
00104 
00107 
00101 
00020 
20000 
00493 
00424 
00000 
00113 
00140 
20000 



ROV 
USED 

UP ? YES: TAKE 374 
NO: SET NEXT COL, 
RETURN 
STORE 

ELEMENTS 
OF [Mj 
ON 
DRUM 

STEP STORAGE ' 

ADDRESSES 
ROW STORED? NO: TAKE 400 

yes: n — •- (A) 
last row? yes: take 411 
no: step row selection 
return to compute next r?0w 
yes*. compute final matrix 

SET UP 

TO COMPUTE 

FINAL MATRIX 

TRANSFER 

n + i« 

COL. 

INTO ES 

SFT TFR INDEX 
TRANSFER 
iTH COL. 
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CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



CV-132 

page CN 005-32 

REPORT ZM 1+91 

MODEL All 

DATE 3-20-56 



CROUT 





77577 


00427 


35 


00153 


00431 


INTO ES 




77600 


00430 


75 


30002 


0043? 


BY ROWS 




77601 


00431 


00 


00000 


00000 






77602 


00432 


21 


00431 


00115 


STEP U ADDRESS 




77603 


00433 


21 


00431 


00041 


STEP V ADDRESS 




77604 


00434 


41 


00113 


00430 


ROW COMPLETE? M0'. TAKE 430 




77605 


0043 5 


11 


00100 


20000 


yes: 




77606 


00436 


35 


00074 


00110 






77607 


00437 


37 


00316 


00310 


SET I b 




77610 


00440 


71 


00100 


00041 


STORE 




77611 


00441 


36 


00074 


20000 






77612 


00442 


35 


00154 


00444 


*£ 




77613 


00443 


75 


30002 


00445 






77614 


00444 


00 


00000 


00000 


AT ES> ADDRESS 




77615 


00445 


23 


00100 


00074 






77616 


00446 


47 


00424 


00447 


LAST X L COMPUTED? NO: TAKE 




77617 


00447 


45 


00000 


00534 


yes: TAKE 534 




77620 


00450 


37 


70440 


70441 


PUNCH ANSWERS 




77621 


004-51 


00 


76500 


30000 






77622 


004 5? 


11 


00074 


00100 


TRAN CC ER 




77623 


00453 


11 


00074 


00104 






77624 


00454 


71 


00100 


00140 


R0K* 


/— \ 


77625 


00455 


36 


00140 


20000 




CM 

CO 

1— H 


77626 


00456 


71 


20000 


00101 


OF 


1 




77627 


00457 


72 


00140 


00100 




1 





77630 


00*60 


36 


00073 


20000 


[M] 



1— 1 


77631 


00461 


? * 


00142 


00463 






77632 


00462 


75 


00000 


00464 ■ 


INTO 




77633 


00463 


00 


00000 


00000 


ES 




77634 


00464 


11 


00040 


00111 


CLEAR 




77635 


00465 


11 


00040 


00112 


STORAGE 




77636 


00466 


71 


00140 


00104 


TRANSFER 
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CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



CV-132 

page CS 005-lSL 

REPORT ZM k91 

MODEL AH 

DATE 3-20-56 



CPOUT 





77637 


00467 


36 


00073 


00116 


Xi 




77640 


00470 


35 


00624 


00472 


INTO 




77641 


00471 


75 


30002 


00473 


CELLS 




77642 


00472 


00 


00000 


00000 


(25) • (26) 




77643 


00473 


11 


00116 


20000 


TRANSFER 




77644 


00474 


35 


00157 


00476 


ELEMENT OF 




77645 


00475 


75 


30002 


00477 


[m] INTO 




77646 


00476 


00 


O^ono 


00000 


(27), (30) 




77647 


00477 


37 


01001 


01003 


MULTIPLY 




77650 


00500 


11 


00111 


00025 


COMPUTE 




77651 


00501 


11 


00112 


00026 


NEW 




77652 


00502 


11 


00031 


00027 


VALUE 




77653 


00503 


11 


00032 


00030 


FOR 




77654 


00504 


37 


01001 


01002 


THIS R0V? 




77655 


00505 


11 


00031 


00111 


STORE 




77656 


00506 


11 


000^2 


00112 


£ 




77657 


00507 


11 


00101 


20000 






77660 


00510 


43 


00104 


00513 


ROW FINISHED? VFS*. TAKE 513 




77661 


00511 


21 


00104 


00074 


NO: SET FOR NEXT ELEMENT 




77662 


00512 


45 


00000 


00466 


JUMP TO CONTINUF ROW 




77663 


00513 


11 


00117 


20000 


yes: 




77664 


00514 


35 


00137 


00516 


TRANSFER 




77665 


00515 


75 


30002 


00517 


RH SIDE 


CM 


77666 


00516 


00 


00000 


00000 


INTO (25) ,(26) 


co 


77667 


00517 


13 


00111 


00027 


COMPUTE 


1 

O 
1 


77670 


00520 


11 


00112 


0003p 


THE 


O 
O 


77671 


00521 


37 


01001 


01002 


DIFPFRrNjrrs 


i-H 


77672 


00522 


75 


30002 


0052* 


STORE 


X 


77673 


00523 


11 


00031 


30000 


DIFFERENCES AT 1200 




77674 


00524 


11 


00101 


20000 


ALL 




77675 


00525 


43 


00100 


00531 


ROWS FINISHED? YFSt TAKE 531 




77676 


00526 


21 


00100 


00074 


no: step 
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CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



CV-132 

PAGE CE 005-18 

REPORT ZM 1*91 

MODEL All 

DATE 2«20*56 



CPOUT 



CO 



I 

o 
o 



a* 



77677 


00527 


21 


00523 


00041 


77700 


00530 


45 


00000 


00453 


77701 


00531 


37 


70440 


70441 


77702 


00532 


00 


01200 


30000 


77703 


00533 


45 


00000 


00000 


77704 


00534 


16 


00155 


00523 


77705 


00535 


16 


00101 


00451 


77706 


00536 


16 


00101 


00532 


77707 


00537 


45 


00000 


00540 


77710 


00540 


11 


00101 


20000 


77711 


00541 


36 


00074 


00126 


77712 


00542 


15 


00617 


00546 


77713 


00543 


15 


00621 


00550 


77714 


00544 


16 


00622 


00553 


77715 


00545 


75 


30002 


00547 


77716 


00546 


11 


76500 


00025 


77717 


00547 


75 


30002 


00551 


77720 


00550 


11 


01400 


00027 


77721 


00551 


37 


01001 


01002 


77722 


00552 


75 


30002 


005*4 


77723 


005 53 


11 


00031 


76*00 


77724 


00554 


21 


00546 


00140 


77725 


00555 


21 


005 30 


00140 


77726 


00556 


21 


00553 


00041 


77727 


00557 


41 


00126 


00545 


77730 


00560 


45 


00000 


C0450 


77731 


00561 


57 


00000 


00000 


77732 


00562 


71 


00101 


00101 


77733 


00563 


35 


20000 


20000 


77734 


00564 


35 


00074 


20000 


77735 


00565 


35 


00620 


00567 


77736 


00566 


75 


30200 


00570 



STORAGE ADDRFSSES 
JUMP TO TRANSFER ROW 
YES: PUNCH 

DIFFERENCES 
JUMP TO HJ OR TO FINAL STOP 
PRESET TO STORE CORRECTIONS 
PRESET TO PUNCH ANSWERS 
PRESET TO PUNCH DIFFERENCES 
DUMMY 
SET 

INDEX 
PRESET ADDRESS OF ANSWERS 
PRESET ADDRESS OF CORRECTIONS 
PRESET TO STORE ANSWERS 
COMPUTE 

CORRECTED 

ANSWER 

STORE ANSWER 
STEP ADDRESSES 
TO COMPUTE 
NEXT ANSWER 
ALL ANSWERS COMPUTED? NO: TAKF 545 
YES; JUMP TO PUf'CH ANSWERS 
FINAL STOP 
TRANSFER 

DIFFERENCES 

TO DRUM 
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SAN OIEGO CALIFORNIA 



CV-132 

PAGE 
REPORT 
MODEL 
DATE 



CI 005-1* 

2MU91 

All 

3-20-56 



CROUT 



CM 

CO 



I 

o 
I 

o 
o 
o 



X 

Ou 



77737 
77740 
77741 
77742 
77743 
77744 
77745 
77746 
77747 
77750 
77751 
77752 
77753 
77754 
77755 
77756 
77757 
77760 
77761 
77762 
77763 
77764 
77765 
77766 
77767 
77770 
77771 
77772 
77773 
77774 
77775 
77776 



00567 
00570 
00571 
00572 
00573 
'00574 
00575 
00576 
00577 
00600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
00610 
00611 
00612 
00613 
00614 
00615 
00616 
00617 
00620 
00621 
00622 
00623 
00624 
00625 
00626 



11 01200 
41 00614 
16 00613 
75 30200 
11 01200 
11 00074 
16 00147 

16 00617 
11 00101 

35 00074 
11 00101 
71 00100 

36 00073 
35 00616 
75 30002 
11 56077 
21 00606 
21 00606 
41 00113 
45 00000 
45 00000 
00 00000 
00 00000. 
11 56077 
00 76500 
11 01200 
00 01400 
00 00090 
00 00000 
11 76477 
75 00002 

17 00000 



56077 
00572 
00533 
00574 
01400 

00100 

00316 
00410 
20000 
00104 
00113 
00140 
20000 
00606 
00607 
01600 
00041 
00115 
00605 
00267 
00561 
00003 
00000 
01600 
00601 
56077 
00613 
76500 
00562 
00021 
00016 
77565 



INDEX FOR FINAL STOP 
PRESET FINAL STOP 
TRANSFER COLUMN OF 

DIFFERENCES INTO (1400) 
SFT T =1 
PRESET I a 
PRESET H b 
SFT 

TRANSFER 
INDEX 
TRANSFER 

TRANSPOSE OF 

DIFFFRFNCFS 

INTO (1600 . . .) 
FINISHED TRANSFER? NO*. TAKE 605 
YES*. BEGIN NEXT ITERATION 
PRESET FINAL STOP 
ITERATIONS INDEX 
BLANK 
PRESETS 
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CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



CV-132 

PAGE CH 005-15 

REPORT ZM 1+91 

MODEL All 

DATE 3-20-56 



CPOUT 





77777 


00627 


45 


00000 


00175 












EMERGENCY 


PUNCH-OUT 




77040 


00630 


37 


70440 


70441 






77041 


00631 


00 


01600 


00244 


ROW 5T0 




77042 


00632 


56 


00000 


00633 






77043 


00633 


37 


70440 


70441 






77044 


00634 


00 


01400 


00244 


COLUMN 




77045 


00635 


56 


00000 


00636 






77046 


00636 


71 


00101 


00101 






77047 


00637 


35 


00101 


20000 






77050 


00640 


45 


00000 


00641 


[Ml 




77051 


00641 


16 


20000 


00643 






77052 


00642 


37 


70440 


70441 






77053 


00643 


00 


40001 


00000 






77054 


00644 


56 


00000 


00645 






77055 


00645 


71 


00101 


00101 






77056 


00646 


^5 


001.01 


20000 






77057 


00647 


45 


00900 


00650 


.[SI 




77060 


00650 


16 


20000 


00652 






77061 


00651 


37 


70440 


70441 






77062 


00652 


00 


56100 


00000 




CM 

CO 


77063 


00653 


56 


00000 


00000 




I— 1 

1 

0^ 


77067 




11 


00102 


20000 


SET 


1 





77070 




73 


77374 


20000 




s 
1— 1 


77071 




35 


00074 


20000 


UP TO 


X 


77072 




71 


20000 


00102 






77073 




71 


20000 


77374 


R 




77074 




11 


00102 


77251 






77075 




11 


20000 


00102 






77076 




11 


20000 


00107 






77077 




45 


00000 


00322 





READ 



CARDS 
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CV-133 

ANALYSIS C N V A } R PAGE CFOli*-l 

PREPARED BY C. H« Richards san l.(co REPORT NO ZU l&l 

checked by D. B. Parker model jqi 

REVISED BY DATE I4-23-.56 



SQUARE ROOT-FLOATING POINT 
(Single Precision) 

0iren a single -precis ion flouting point number, x = H.2** (see CA 001) j 
cempute "/x =/l» • 2 r J". 2?". 
Initial State i (0003l)*H 
(00052) = P 
Pinal State t (00031)=!" 
(00032)= P" 

H* and P* are defined as follows t 

If P is eveni H»- B f P»= P 

If P Is oddf *•* l/2,P« = Ptl 
Formula uaedi lewtons' Iteration 

First approximation - 2r -1 (9) 
Convergence is assuned when Ax ^ 0, 
Special tests » If 1:0, set I"s0 

If M«- 9t oat H" = 9 
Alarms If V is negative. 
Drum Addresst 77557 - 77567, (25) 10 = (3D 8 
lumber of oonmands for assembly modification (21) 1Q : (^5) ft 
Ho constants or temporaries used* 
Standard form* 



roNM laia-A, 9-196 



CO 
CO 



I 

o 
i 

o 
o 



X 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP 



SAN OIEGO CALIFORNIA 



CV-133 

PAGE CPOlU-2 

REPORT ZM U91 

MODEL All 

DATE i. -23-56 



FLOATING S^UASP" 300T 



77537 


01000 


37 


760^0 


760^2 


ALAPM FXJT 


77540 


01001 


45 


0OQ00 


5lOof] 


EXIT 


77541 


01002 


11 


00031 


20000 


ENTRANCE t M -^ A 


7754? 


0100? 


46 


oioon 


*!or>4 


ry 4, 


77543 


01004 


47 


01005 


01001. 


N:0 * ?**'* 


77544 


01005 


1? 


00032 


100^0 -) 




77545 


01006 


55 


10000 


00043 C 


P EVEN — > f o 1 2 


77546 


,01007 


44 


01010 


0101? J 


P 0D0 i 


77547 


01010 


21 


00032 


01025 


P t 1 -* 3 2 (o'J 


77550 


01011 


54 


00031 


00107 


N/2 -*► 31 (n'^ 


77551 


01012 


5 5 


00032 


00043 


p'/2 -> 3' /p*J 


77552 


01013 


43 


01026 


01001 


n 1 : 9 1 ?*'' r . 


775 53 


01014 


11 


01026 


0)027 


• (2) 


77554 
77555 


01015 
01016 


F 

73 


00031 
01027 


00042 
01030 




77556 


01017 


54 


01027 


00107 


*^ X^-/^ -^'*27 


77557 


01020 


23 


10000 


01027 


■y*(%.,-*i-<) s * : 


77560 


01021 


21 


01027 


01030 


ax:o £4 


77561 


01022 


44 


01015 


01023J 


77562 


01023 


11 


20000 


00031 


Xi = n"-* 31 


77563 


01024 


45 


00000 


01001 


JUMP TO EXIT 


77564 


01025 


00 


00000 


00001 


(5> 
1 


77565 


01026 


37 


77777 


77777 


Q^ 


77566 


01027 


§0 


00000 


ooooq] 


X t _, ♦ 1/2X^. / * X t . 


77567 


01030 


[00 


00000 


00000) 


y */ 



££> 



-^> '01 7 
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CUBE ROOT -FLOATING POIHT 
(Single Precision) 



Given a single-preeiBion floating point number* x«I»2 p (see CA 001) | 
compute Ti~ -flP't'* a I*.2 ? " 
Initial State 1 (00031)-! 
(00032) - P 
Pinal State t (00031) *V* 
(00032)- p» 
V and p* are defined as follows j 
Divide p by 3. If remainder - 0| I»*H, p f * p 

If remainder r l f ft- f^. # p'*p-r2 
If remainder - 2) I*: I/fe, p«- pt 1 
Formula used t lewton's Iteration 

Pirat approximation 2^ -1 (9), I^O 

1-2 35 (-9), IK 
Convergence is assumed when f • A x £ 0. 
Speoial tests t If H= 0, set »"* 

If H^2 55 " 1 , set rc'2 55 " 1 
If I*sl-2 35 # set H«* 1^35 
Drum address t 77570 - 776^ (37) = (I4.5) 

10 o 

lumber of commands for assembly modification! (31) 10 *(37) 
So constants or temporaries used. 
Standard form. 



form i«ia-4 
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Fixed Point Card Output Subroutine 
Specifications 



Identification Tag: 

Type: 

Subroutine Designation: 

Storage : 



Program Entrance : 
Program Exit: 
Machine Time: 



CPO-0 

Subroutine 

SUB 5l6hl 21516 (uses 25k consecutive 
cells when assembled) 

185 instructions, addresses 
88800 thru 88899 
889OO thru 88984 

30 constants in program, addresses 
88985 thru 88999 
89OOO thru 89014 

215 words total program storage 

Temporary storage used but not stored 
in program. 25^ consecutive cells 
must be provided to assemble this 
subroutine . 

The constant pool and temporary storage 
pool are used by this routine. 

88802 

88801 

Card punch speed (see text) 



Mode of Operation; 



Fixed point 



in 
00 



1 
§ Coded "by: 

**" Code Checked by: 

x 

cu 

Machine Checked by: 
Approved by: 



R. Summers 
R. Beach 
R. Beach 
W. F, Bauer 



January, 1956 
February, 1956 
February, 1956 
March 26, 1956 
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Description 

This routine will output up to four fixed point numbers per card 
punched. These numbers are specified by parameter words contained in a list, 
the location of which is given in the word following the RJ to this subroutine. 
This word specifies the first and last address of the parameter list. 

For each output word a parameter word is required which has the 
form: 

xx uuuuu vww 
where 

xx specifies the binary exponent 
uuuuu gives the location of the output word 
wvw gives the address to be punched on the card and 
associated with the output word. 

This information suffices to convert the number to "floating decimal 
form", i.e. a signed ten digit, normalized rounded fraction with a signed two 
digit decimal exponent. In addition, a two digit binary exponent and a five 
digit decimal address are punched. This yields a card output which meets the 
specifications of the card form for the SNAP BD command, CRI-2 and CPO-1. 

There is no restriction on the length of the parameter list. In case 
there are not enough words to complete a card, blanks will be left in the number 
fields not used. Though the subroutine must be executed in ES, the control 
word, parameter list and output words may be in ES or MD. However, to obtain 
full card punch speed, the parameter words and output words must be in ES. 
In addition, successive entries to the routine at intervals of 8ms or less 
will not interrupt the card cycle. Hence, it is possible to employ four word 
parameter lists which are successively modified by the program between 
re-entries to tnis punch routine. 

Since 6 bits are allowed to specify the binary exponent XX, the range 
of scale factors (s) must be such that ^S^.63. 



Y Programming Instructions 

o 

© 1- Enter subroutine with 
o 

£ BJ OOM01 00M02 

xi yy FOGOO LOOOG 

a. 



where 



OQMOO is the location of the first word of this subroutine 
FOGOO is the location of the first word of the parameter list 
K)000 is the location of the last word of the parameter list 
yy may have any value. 9-201 



CO 



I 

o 

o 



X 
Cm 
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2. Furnish parameter list. 

This list is composed of parameter words of the form 
xx uuuuu wwv 
where 

xx is the binary scale factor associated with the output word 
uuuuu is the location of the output word 

wvw is the address or identification associated with the output 
number and which is placed on the card. 

3. Gontrol is returned to the word following the control word after 
punching. 

k. Routine assumes cards are positioned on the punch side of the Bull 
before entry. 

Accuracy 

All numbers with binary exponents less than or equal to 35 are repre- 
sented as ten digit decimal numbers (rounded). All digits of the binary 
number are used in the conversion so that the result is as accurate as possible. 
Numbers with binary exponents greater than 35 may have an inaccuracy in the 
least significant decimal digit since an intermediate binary number (which may 

be in error in its least significant bit) is used in the conversion. All 

10 
integers in the range from to 10 are converted exactly. 
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88800 


51641 


D 




88900 


51741 


D 




89000 


51841 


D 




08800 


01024 


D 




08900 


01124 


D 




09000 


01224 


88800 


00 


00000 


ooooo 


88801 


MJ 


00000 


00000 


88802 


TV 


08801 


08803 


88803 


MP 


00016 


OOOOO 


88804 


TU 


AOOOO 


08814 


88805 


TP 


AOOOO 


00031 


88806 


LG 


00031 


10021 


88807 


TV 


QOOOO 


00031 


88808 


ST 


00031 


00031 


88809 


TV 


08994 


08998 


88810 


TP 


09000 


09017 


88811 


TV 


08993 


08816 


88812 


TU 


08820 


08815 


88813 


RP 


30004 


08815 


88814 


TP 


00000 


00023 


88815 


TV 


00000 


08816 


88816 


TP 


ooooo 


ooooo 


8881? 


u 


00031 


08821 


88818 


RA 


08801 


00016 


88819 


TV 


AOOOO 


08998 


88820 


MJ 


00023 


08824 


88821 


RA 


08815 


00015 


88822 


RA 


08816 


00016 


88823 


IJ 


0901? 


08815 


88824 


EF 


0002? 


08846 


88825 


RP 


20036 


08827 


88826 


CC 


09018 


AOOOO 


88827 


TP 


09000 


00032 


88828 


RA 


08815 


09001 


88829 


TU 


0881? 


08850 


88830 


TU 


08824 


08843 


88831 


TP 


00016 


09016 


£ 88832 


TP 


09000 


09015 


2 88833 


TP 


0898? 


08941 


Y 88834 


TU 


08987 


08985 


^88835 


TU 


08994 


08983 


§88836 


RS 


08850 


00015 


£ 88837 


RS 


08843 


00015 


*- 88838 


TV 


08999 


08985 


g 88839 


TV 


08999 


08983 


88840 


IJ 


09017 


08843 


88841 


TV 


08831 


08985 


88842 


TV 


08831 


08983 


88843 


TP 


OOOOO 


QOOOO 



66571 
66735 

67101 
02000 
02144 
02310 
66571 
66572 
66573 
66574 
66575 
66576 
66577 
66600 
66601 
66602 
66603 
66604 
66605 
66606 
6660? 
66610 
66611 
66612 
66613 
66614 
66615 
66616 
66617 
66620 
66621 
66622 
66623 
66624 

66625 
66626 
66627 
66630 
66631 
66632 
66633 
66634 
66635 
66636 
66637 
66640 
66641 
66642 
66643 
66644 



00 
00 
00 
00 
00 
00 
00 
45 
16 
71 
15 
11 
55 
16 
36 
16 
11 
16 
15 
75 
11 
1$ 
11 
41 
21 
16 
45 
21 
21 
41 
1? 
75 
27 
11 
23 
15 
15 
11 
11 
11 
15 
15 
23 
23 
16 
16 
41 
16 
16 
11 



OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
02001 
00020 
20000 
20000 
00037 
10000 
0003? 
02302 
02310 
02301 
02024 
30004 
OOOOO 
OOOOO 
OOOOO 
00037 
02001 
20000 
0002? 
02017 
02020 
02331 
00033 
20044 
02332 
02310 
0201? 
02021 
02030 
00020 
02310 
02273 
02273 
02302 
02062 
02053 
0230? 
02307 
02331 
02037 
02037 
OOOOO 



OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
02003 
OOOOO 
02016 
00037 
10025 
00037 
00037 
02306 
02331 
02020 
02017 
02017 
0002? 
02020 
OOOOO 
02025 
00020 
02306 
02030 
0001? 
00020 
02017 
02056 
02033 
20000 
00040 
C2311 
02062 
02053 
02330 
02327 
02215 
02271 
0226? 
00017 
0001? 
02271 
02267 
02053 
02271 
02267 
10000 
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88844 
88845 
88846 
8884? 
88848 
88849 
88850 
88851 
88852 
88853 
88854 
88855 
88856 
88857 
88858 
88659 
88860 
88861 
88862 
88863 
88864 
88865 
88866 
88867 
88868 
88869 
88870 
88871 
88872 
88873 
88874 
38875 
88876 
88877 
88878 
88879 
68880 
^88881 
^88882 
£38883 
^ 88884 

S 88885 
^ 88886 
£ 88887 
K* 88888 
°- 88889 
88890 
88891 
88892 
88893 



QT 09002 
SP Q00O0 
TP BOOOO 

rp ooooo 
rp oooi6 

RJ 08982 
TP OOOOO 
IP AOOOO 
ZJ 08855 
Rft 10010 
TU 00013 
TP 08995 
SP 09004 
TJ 08895 
SS 08895 
TV A 0006 
TV 08988 
TM 00030 
LA A 0000 
TP AOOOO 
TP 00013 
TP BOOOO 
ZJ 08867 
TP 08996 
DV 09003 
SP AOOOO 
TU AOOOO 
RS 08870 
RA 08936 
SP OOOOO 
2J 08868 
TP 00013 
SF 00030 
TN 08979 
ZJ 08880 
TN 00018 
SA 09005 
SA 08895 
MP AOOOO 
TP BOOOO 
TJ 09003 
TP 09003 
TN AOOOO 
SP AOOOO 
TU AOOOO 
TN 08695 
AT 09007 
SP 00016 
RP OOOOO 
MP AOOOO 



00026 
00005 
Q0074 
08895 
08936 
08975 
AOOOO 
00030 
08853 
08923 
09043 
08903 
OOOOO 
08875 
OOOOO 
08862 
08670 
AOOOO 
OOOOO 
08895 
08936 
AOOOO 
08961 
08903 
OOOOO 
00015 
OOOOO 
00016 
00016 
OOOOO 
08961 
08979 
08979 
AOOOO 
0887? 
AOOOO 
OOOOO 
OOOOO 
09006 
AOOOO 
08886 
AOOOO 
03936 
00015 
08892 
AOOOO 
08895 
OOOOO 
08894 
09003 



66645 
66646 
66647 

66650 
66651 
66652 
66653 
66654 
66655 
66656 
66657 
66660 
66661 
66662 
66663 
66664 
66665 
66666 
66667 
66670 
66671 
66672 
66673 
66674 
66675 
66676 
66677 
66700 
66701 
66702 
66703 
66704 
66705 
66706 
66707 
66710 
66711 
66712 
6671 3 
6671 A 
66715 
66716 
6671"> 
66720 
66721 
66722 
66723 
66724 
66725 
66726 



51 

31 
11 
11 
II 
37 
31 
11 
47 
75 
15 
11 
31 
42 
34 
16 
16 
1? 
54 
11 
11 
11 
47 
11 
73 
31 
15 
23 
21 
31 
47 
11 
74 
13 
47 
13 
3? 
32 
71 
11 
42 
11 
13 
31 
15 
13 
35 
31 



02312 
10000 
300,00 
10000 
00020 
02266 
OOOOO 
20000 
02067 
10012 
00015 
02303 
02314 
02137 
02137 
20000 
02274 
00036 
20000 
20000 
00015 
30000 
02103 
02304 
02313 
20000 
20000 
02106 
02210 
10000 
02104 
00015 
00036 
02263 
02120 
0002 2 
02315 
02137 
20000 
30000 
02313 
02313 
20000 
20000 
20000 
02137 
02317 
0002C 
OOOOO 
20000 



00032 
00005 
10112 
02137 
02210 
02257 
20000 
00036 
02065 
02173 
02363 
02147 
OOOOO 
02113 
OOOOO 
02076 
02106 
20000 
OOOOO 
02137 
02210 
20000 
02241 
02147 
10000 
00017 
OOOOO 
00020 
00020 
OOOOO 
02241 
02263 
02263 
20000 
02117 
20000 
OOOOO 
OOOOO 
02316 
20000 
02126 
20000 
02210 
00017 
02134 
20000 
02137 
OOOOO 
02136 
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88894 
88895 
88896 
88897 
88898 
88899 
88900 
88901 
88902 
88903 
88904 
88905 
88906 
88907 
88908 
88909 
88910 
88911 
88912 
88913 
88914 
88915 
88916 
88917 
88918 
88919 
88920 
88921 
88922 
88923 
88924 
88925 
88926 
88927 
86928 
889?9 
88930 
88931 
£ 88932 
co 88933 
~" 8893^ 
88935 
88936 
^ 88937 
P 88938 
x 88939 
04 88940 
88941 
88942 



MP 
00 
TP 
TM 
QT 
SP 



i 
a- 

i 

o 
o 
o 



A 0000 
00000 
08986 
A 0000 
09008 
Q0O00 
SA Q0OO0 
TP A00O0 
B0000 
00000 
08936 
00000 
08996 
00000 
08907 
08988 
09009 
08912 
00021 
08969 
08916 
08989 
00000 
AOOOO 
09014 
00000 
00015 
08936 
08936 
AOOOO 
08925 
08984 
00016 
08982 
00030 
08930 
08984 
00021 
08993 
08972 
00000 
08985 
00000 
08934 
09016 
09015 
08956 
00000 
08941 



SP 
00 
RS 
MJ 
TP 
00 
RA 
TJ 
QT 
ZJ 
TP 
TU 
RS 
TJ 
RA 

or 

£J 
MJ 
TU 
RA 
TP 
TM 
SJ 
RJ 

r? 

RJ 
TP 
SJ 
RJ 

TP 

TU 
TP 
QT 
AT 
00 
RS 
LA 
U 
TU 
00 
RS 



00030 
00000 
08907 
QOOOO 
QOOOO 
00002 
00001 
QOOOO 
00015 
00000 
00016 
08898 
08903 
00000 
00016 
08898 
AOOOO 
08922 
QOOOO 
08916 
00015 
08920 
00015 
AOOOO 
08914 
08922 
09043 
00016 
AOOOO 
QOOOO 
08926 
08983 
08936 
08975 
AOOOO 
08931 
08983 
GO 000 
08934 
08979 
AC 000 
08936 
00000 
00015 
00001 
08948 
09053 
00000 
09011 



66727 


71 


2,0000 


00036 


66730 


00 


00000 


00000 


66T31 


11 


02272 


02153 


66732 


12 


20000 


10000 


66T33 


51 


02320 


10000 


66734 


31 


10000 


00002 


66735 


32 


10000 


00001 


66736 


11 


£0000 


10000 


66737 


31 


30000 


00017 


66740 


00 


00000 


ooooo 


66741 


23 


02210 


0002C 


66742 


45 


00000 


02142 


66743 


11 


02304 


0214? 


66744 


00 


00000 


OOOOO 


66745 


21 


02153 


00020 


66746 


42 


02274 


02142 


66747 


51 


C2321 


20000 


66750 


47 


02160 


02172 


66751 


11 


00025 


100C0 


66752 


15 


02251 


02164 


66753 


23 


02164 


0001? 


66754 


42 


02275 


02170 


66755 


21 


00000 


0001? 


66756 


51 


20000 


20000 


66757 


43 


02326 


0216? 


66760 


45 


OOOOO 


02172 


66761 


15 


00017 


02363 


66762 


21 


02210 


00020 


66763 


11 


02210 


20000 


66764 


12 


20000 


10000 


66765 


46 


02175 


02176 


66766 


37 


02270 


0226? 


66767 


11 


00020 


02210 


66770 


37 


02266 


0225 ? 


66771 


11 


00036 


20000 


66772 


46 


02202 


02203 


66773 


37 


02270 


02267 


66774 


11 


00025 


10000 


66775 


15 


02301 


02206 


66776 


11 


02254 


02263 


66777 


51 


00000 


20000 


67000 


35 


02271 


02210 


67001 


00 


00000 


ooooo 


67002 


23 


02206 


00017 


67003 


54 


02330 


00001 


67004 


41 


02327 


02224 


67005 


15 


02234 


02375 


67006 


00 


00000 


000 CO 


67007 


23 


02215 


02323 
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88943 


Tj 


08990 


08949 


8P944 


^-> 


0S9S5 


09010 


38945 


RS 


08963 


09030 


8 « 94.6. 


TP 


00016 


09016 


8 894 7 


TP 


o^ci? 


0<'0!5 


H8948 


IJ 


08979 


0893'- 


98949 


to 


09013 


C89 36 


8&950 


SP 


00026 


OOOOO 


38951 


RJ 


0898? 


069 76 


88952 


IJ 


00032 


08836 


88953 


RP 


30003 


089*5 


«? p «?. s u 


TV 


08990 


08956 


88955 


Tp 


09003 


08979 


8 89^6 


EW 


ooooo 


ooooo 


36957 


.Hfc 


3.0000 


0-^00 


38958 


EW 


10000 


ooooo 


88959 


RP 


2000,3 


08997 


88960 


RS 


089^6 


00016 


88961 


S? 


C8870 


00015 


88962 


TU 


AOOOO 


08964 


88963 


RP 


30011 


08965 


88964 


TU 


ooooo 


0^042 


88965 


TP 


0889? 


QOOOO 


88966 


SP 


08936 


OOOOO 


8B967 


c ^ 


09003 


08910 


88968 


TJ 


09003 


08973 


88969 


TP 


09053 


AOOOO 


88970 


TJ 


08991 


08922 


88971 


MJ 


OOOOO 


08912 


88972 


00 


OOOOO 


00009 


88973 


AT 


08986 


0890? 


68974 


MJ 


OOOOO 


0889ft 


88975 


SP 


QOOOO 


ooooo 


ft 8976 


OV 


09003 


ooooo 


88977 


SP 


AOOOO 


00015 


88978 


AT 


08985 


08979 


£ 889?9 


00 


ooooo 


ooooo 


2 88980 


LA 


09016 


00C01 


Y 88981 


IJ 


08936 


08975 


T 88982 


MJ 


OOOOO 


ooooo 


g 88983 


cc 


OOOOO 


ooooc 


% 88984 


MJ 


OOOOO 


ooooo 


*" 83935 


CC 


OOOOO 


ooooo 


g $898-6 


TU 


AOOOO 


09043 


P, $aq 7 


CC 


09043 


09053 


88988 


TU 


AOOOO 


09053 


88989 


RA 


09044 


00015 


88990' 


CC 


09012 


0905? 


88991 


00 


00005 


09028 



67010 
67011 
67012 
67013 
67014 

67015 
67016 
6701 7 
67020 
67021 
6 7022 
67023 
67024 
67025 
67026 
67027 
67030 
6 7031 
67032 
67033 
67034 
67035 
67036 
67037 
67040 
67041 
67042 
6-043 
67044 
67045 
67046 
6 7047 
67050 
67051 
67052 
67053 
67054 
67055 
67056 
67057 
67060 
67061 
67062 
67063 
67064 
6 706 5 
67066 
67067 
67070 



42 

23 
II 
11 

41 
11 

31 
37 

.41 
i~% 

16 

i i 

77 
77 
77 
75 

2S 
31 
15 
75 
15 
11 
31 
43 
42 
11 
42 
45 
00 
35 
4* 
31 
73 
31 
35 
00 
54 
41 
45 
27 
45 

?: 
if 

2' 

1! 
21 
27 
OC 



02276 
022 71 
02267 
00020 
02324 
02263 
02325 
0003? 
02266 
00040 
30003 
02276 
02313 

ooooo 

10000 
10000 
20003 
02234 
02106 
20000 
30013 
OOOOO 
02137 
02210 
02313 
02313 
C2375 
02277 
OOOOO 
OOOOO 
02272 
OOOOf 
10000 
02313 
20000 
02271 
OOOOO 
02330 
02210 

ooooo 
ooooo 
ooooo 
ooooo 

20000 
02363 

20C00 
02364 
02324 
00005 



02225 

o: : 3?2 

0?32? 
0233C- 
02327 
02206 
02210 

ooooc 

02260 
02044 
02233 
02234 
02263 
OCOOO 

ooooo 
ooooo 

02 305 
00020 
0001? 
02244 
02245 
02362 
10000 
OOOOO 
02156 
02255 
20000 
02172 
02160 
000 11 
02,1b 3 
21-4'' 

ooooo 

10000 
00017 
02263 
OOOOO 
00001 
02257 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
02363 
02375 
02375 
00017 
02374 
02344 
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88992 


00 


00000 


09040 




88993 


00 


09052 


00027 




88994 


06 


09042 


08811 




88995 


13 


08906 


08904 




88996 


MJ 


00000 


0890? 




8899? 


!J 


08979 


08956 




88998 


RP 


20003 


00000 




88999 


EW 


44095 


00013 




89000 


00 


00000 


00003 




89001 


00 


00004 


ooooo 




89002 


00 


00000 


7777? 


B 


89003 


00 


00000 


00010 




89004 


00 


00000 


00035 




89005 


00 


ooooo 


00037 




89006 


11 


50404 


65025 


B 


89007 


54 


20000 


00153 


B 


89008 


37 


77777 


77777 


B 


89009 


20 


00000 


ooooo 


B 


89010 


00 


00012 


ooooo 




89011 


00 


00012 


00012 




89012 


00 


ooooo 


00017 




89013 


00 


ooooo 


00004 




89014 


00 


00010 


ooooo 





67071 


00 


ooooo 


02360 


67072 


00 


02374 


00033 


67073 


00 


02362 


02013 


67074 


47 


02152 


0"150 


67075 


45 


ooooo 


02153 


67076 


41 


02263 


02234 


67077 


75 


20003 


ooooo 


67100 


77 


4777? 


00015 


67101 


00 


OOOOO 


00003 


67102 


00 


00004 


ooooo 


67103 


00 


OOOOO 


77777 


67104 


00 


OOOOO 


00012 


67105 


00 


OOOOO 


00043 


67106 


00 


OOOOO 


0004 5 


67107 


11 


50404 


65025 


67110 


54 


20000 


00153 


67111 


37 


77777 


7777? 


67112 


20 


OOOOO 


OOOOO 


671 13 


00 


00014 


OOOOO 


67114 


00 


00014 


00014 


67115 


00 


OOOOO 


00021 


67116 


00 


OOOOO 


00004 


67117 


00 


00012 


ooooo 
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THE RAMO-WCXDLDRIDGE CORPORATION 
Los Angeles 45, California 

STATED POINT CARD OUTPUT 



Identification Tag: 

Type: 

Assembly Routine Spec: 

Storage: 



Program Entrance: 

Program Exit: 
Alarm Exit: 

Machine Time: 
£g Mode of Operation: 

I 

o 

I 

o 
o 

£ Coded by: 

cu Code Checked by: 

Machine Checked by: 

Approved by: 



Specifications 



CPO-2 



Subroutine 

SUB 50953 11800 

(Note: 154 consecutive cells required for execution) 

118 instructions plus 36 cells which must be reserved 
by the user of this subroutine, immediately following 
the subroutine. 

154 words total program storage 

6 words temporary storage pool used, addresses 27b 

through 34b 

The constant pool is used by this routine. 

Address SUB00 

(Note: non- conventional entrance 
and exit) 
Address SUB00 

The alarm exit is not used by this routine, but if a 
number to be punched is too large (see programming 
instructions) a divide fault and an 10 fault will occur. 

0. 5 seconds per card. 
6 numbers per card. 



Stated point. 

M. Perry 
M. Perry 
M. Perry 
W. F. Bauer 



April, 1956 

April, 1956 

April, 1956 

April, 1956 
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Description 

This subroutine punches six stated-point, rounded decimal numbers per 
card. Each card also contains an integer to identify the deck, and a one digit 
card number. 

Programming Instructions 

The subroutine must be stored in high speed storage. Assume that it is 
located at address SUBOO. To enter the subroutine use: 

RJ SUBOO SUBOO 

followed by a control word of the form 

• NN L M 

The operation part of the control word, NN r is two octal digits 
which specify the number of numbers to be punched. 

The ii-address part of the control word, L> is the address of 
the first cell of a list of parameter words, the make-up of which is 
described below. This list of parameter words starting at cell L 
must be in high speed storage. 

The v-address part of the control word, M, is the address of 
an identification integer, which must be in high speed storage. The 
identification integer located in cell M must be scaled 2° and must 
be less than 10' . If (M) ^> 10 a divide check will occur. 

The list of parameter words occupies NN consecutive cells in high speed 
storage starting with cell L» Each parameter word, one for each number to be 
punched* contains four pieces of information in the form 

SS P OIIFF 



i 
© The operation part of the parameter word, SS, gives the bi- 

£; nary scaling of the number to be punched. This scaling informa- 

**" tion must be expressed in two octal digits. If SS is greater than 

ou 43b (35 decimal) then II must be specified as 00. 

The u-address part of the parameter word, P, is the address 
of the number to be punched, which must be in high speed storage. 

Of the five octal digits which make up the v-address part of 
the parameter word the first must be zero; the next two, II, specify 
the number of decimal digits to be punched in the integer part of 

9-2C9 
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the number. If SS is greater than 43b (35 decimal) then II must 
be 00. 

The last two octal digits, FF, specify the number of decimal 
digits to be punched in the fractional part of the number. 

The total number of decimal digits to be punched must not exceed ten 
(decimal), (i. e. , II + FF^ 12b). 

If the number to be punched is too large to be expressed in the number of 
digits specified a divide fault and an 10 fault will occur. 

Note: These parameter words are similar to those used by HTO-0. 

OUTPUT CARD FORM 

Each card punched by this subroutine has 8 fields as follows: 

Field Columns Contents 

1 1-12 1st number 

2 13-24 2nd " 

3 25-36 3rd 

4 37-48 4th •» 

5 49-60 5th »' 

6 61-72 6th 

7 73-79 Identifying Integer 

8 80 card number 

In each of the six number fields the 12th or right most column contains the 
sign of the number. The 11th column contains the least significant digit to be 
punched. The remaining digits and the decimal point occupy succeeding columns 
to the left as far as required. Zeros to the left of the most significant digit or 
decimal point are suppressed. 

£g Field 7 contains the 7 digits of the identifying integer with no decimal 

Zl point. 

g Field 8 contains a single decimal digit card number, (modulo 10). The 

21 first card produced by each entry into the routine contains a 1, the second a 2, 
*"" and so on up to 9, 0, and 1 again. 



TIMING 

As noted above all cells referred to by this routine (namely the control 
word, the identification integer, the parameter list, and all numbers to be 
punched) should be in high speed storage. Successive entries at intervals of 9 ms 
or less may then be made without interrupting the card cycle. 
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D 




SOPOO 


509 53 




65311 


00 


00000 00000 


D 




S1P00 


50974 




65336 


00. 


00000 00000 


D 




S2P00 


51026 




65422 


0:0. 


00000 00000 


D 




S3P00 


51039 




65437 


00 


0,0000 00000 


D 




S4P00 


51047 




65447 


00 


00000 00000 


D 




OCPOO 


00013 




00015 


00 


00000 00000 


D 




OOPOO 


01024 




02000 


00 


00000 OOOOO 


D 




01P0C 


01045 




C2025 


00 


00000 OOOOO 


D 




02P00 


01097 




02111 


00 


00000 00000 


D 




03PO0 


OHIO 




02126 


00 


00000 00000 


D 




O4P0O 


01118 




02136 


00 


00000 00000 


D 




00T00 


00023 




00027 


00 


00000 00000 







07 POO 


01142 




02166 


00 


00000 00000 


D 




08 POO 


01154 




02202 


00 


00000 00000 


D 




O9P00 


01166 




02216 


00 


#0000 00000 


SO POO 


MP 


0CP03 


00000 


ENTRY 


65311 


71 


00020 00000 


S0P01 


TU 


A 0000 


01P03 


LOC PARAM 


65312 


15 


20000 02030 


S0P02 


TV 


A 0000 


04P23 


LOC IDENT 


65313 


16 


20000 02165 


S0P03 


SP 


A 0000 


00005 


NO WORDS 


65314 


31 


20000 00005 


S0PO4 


TP 


80000 


O0TOO 




65315 


11 


30000 00027 


SOP05 


TV 


OOPOO 


01P44 


SET FINAL 


65316 


16 


02000 02101 


S0P06 


RA 


01P44 


0CP03 


EXIT 


65317 


21 


02101 00020 


SOP07 


TP 


0CP03 


00T01 


CARD NUMBER 


65320 


11 


00020 00030 


S0PO8 


U 


00T0O 


O0PO9 


REDUCE N 


65321 


41 


00027 02011 


S0P09 


TP 


0OP20 


O0T02 


U FOR FST WD 


65322 


11 


02024 00031 


S0P1O 


EF 


00000 


01P25 




65323 


17 


00000 02056 


soph 


RP 


20036 


0OP13 




65324 


75 


20044 02015 


SOP12 


CC 


07P00 


AO00O 




65325 


27 


02166 20O00 


S0P13 


TU 


OOP 19 


02P12 




65326 


15 


02023 02125 


S0P14 


RJ 


O1P01 


01P02 


FIRST 3 


65327 


37 


02026 02027 


S0P15 


TU 


01P01 


02P12 




65330 


15 


02026 02125 


S0P16 


RJ 


01P01 


01 POO 


SECOND 3 


65331 


37 


02026 02625 


SOP17 


RJ 


04P17 


O4P00 


I DENT PUNCH 


65332 


37 


02157 02136 


S0P18 


RA 


OOTOl 


0CPO3 


BUMP WEHl 


65333 


21 


OO030 00020 


SOP 19 


45 


07P02 


00PO9 BRR 




65334 


45 


02170 02011 


SOP20 


40 


00000 


00000 B 




65335 


40 


00000 00000 


SI POO 


QJ 


O1P01 


01P02 


SET 1 


65336 


44 


02026 02027 


S S1P01 


45 


O8P02 


00000 BRB 




65337 


45 


02204 00000 


2 S1P02 


LQ 


00 TO 2 


00026 


EXIT 


65340 


55 


00031 00032 


V S1P03 


11 


00000 


10112 B 


PROC PARA 


65341 


11 


OOOOO 10112 


T S1P04 


RA 


O1P03 


0GP02 


ADV OAR LOC 


65342 


21 


02030 00017 


S S1P05 


SN 


Q000O 


00042 




65343 


33 


10000 06052 


£ S1P06 


AT 


01P45 


01P28 


SHIFT INST 


65344 


35 


02102 02O6i 


^ S1P07 


QT 


0CP01 


0OT04 


FD 


65345 


51 


00016 00033 


2 S1P08 


TU 


GOO 00 


01P26 


LOC 


6 5346 


15 


10000 02057 


S1P09 


LQ 


Q000O 


00030 




65347 


55 


10000 00036 


S1P10 


QT 


0CPO1 


00T03 


ID 


65350 


51 


00016 00032 


S1P11 


ZJ 


01P12 


01P18 




65351 


47 


02041 02047 


S1P12 ' 


SS 


OCP03 


00015 




65352 


34 


00020 00017 


S1P13 


TU 


A0000 


01P16 




65353 


15 


20000 02045 
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S1P14 


TP 


01P48 


01P30 


ID WON ZERO 


65354 


11 


02105 


02063 


S1P15 


TP 


01P46 


AOOOO 




65355 


1:1 


02103 


20000 


S1P16 


RP 


OOO0O 


01P19 


TO LESS 1 


65356 


75 


00000 


02050 


S1P17 


MP 


A 00 00 


01P46 




65357 


71 


20000 


02103 


siPia 


TP 


01P49 


01P30 


iD ZERO 


6 5360 


11 


02106 


02063 


S1PI9 


TP 


A 0000 


02P08 


DIVISOR 


65361 


11 


20000 


02121 


S1P20 


SP 


00T04 


00015 


FD 


65 362 


31 


00033 


00017 


S1P21 


TO 


A 0000 


01P23 




65363 


15 


290OO 


02 05 ^ 


S1P22 


SP 


00P20 


00034 


ONE HALF 70 


65364 


31 


02024 


00042 


S1P23 


RP 


00000 


01P25 


FO 


65365 


75 


OOOOO 


02056 


S1P24 


MP 


BOO0O 


01P47 




6 5366 


71 


30000 


02104 


S1P25 


11 


30000 


10112 B 




65367 


11 


30000 


10112 


S1P26 


TP 


OOOOO 


00T05 


PROCURE DATA 


65370 


11 


00000 


00034 


S1P27 


TM 


0OT05 


AOOOO 




65371 


12 


00034 


20000 


S1P26 


54 


20000 


00153 B 


SHIFT 


65372 


54 


20000 


00153 


S1P29 


AT 


QOOOO 


01P28 


ROUNDED 35 


6537 3 


35 


10000 


02061 


S1P30 


DV 


02P08 


01P28 




65374 


73 


02121 


02061 


S1P31 


LQ 


01P28 


00001 




6537 5 


55 


02061 


00001 


S1P32 


TV 


00T03 


01P34 


ID 


65376 


16 


00032 


02067 


S1P33 


RA 


01P34 


001 G4 


FD 


65377 


21 


02067 


00033 


S1P34 


LQ 


00T02 


OOOOO 


POSITION 1 


654-00 


55 


00031 


OOOOO 


S1P35 


TV 


01P50 


02P04 


SET ZFRO SUP 


65401 


3 6 


02107 


02115 


S1P36 


RJ 


02P11 


02P10 


INTE6RL DIG 


65402 


37 


0212:4 


02123 


S1P37 


RJ 


02P11 


03P00 


DEC PT 


6540 3 


37 


02124 


02126 


S1P36 


TP 


00T04 


00T03 


FD 


654Q4 


11 


OOG33 


00032 


S1P39 


RJ 


02P11 


2 P 1 


FRACT DIG 


65405 


37 


02124 


02123 


S1P40 


TJ 


00T05 


01P50 




65406 


42 


00034 


02107 


S1P41 


H J 


02P11 


02P05 




65407 


37 


02124 


02116 


S1P42 


ij 


OOTOO 


OIPOO 




65410 


41 


0002 7 


02025 


S1P43 


RJ 


04P17 


04POO 


IDENT PUNCH 


65411 


37 


02157 


02136 


S1P44 


45 


09P02 


OOOOO BRB 




65412 


45 


02220 


00000 


S1P45 


54 


20000 


00153 B 




65413 


54 


20000 


00133 


S1P46 


00 


OOOOO 


00012 B 


TEN 


65414 


00 


OOOOO 


00012 


SIP'*? 


01 


OOOOO 


00000 -01 


35 ONE TENTH 


65415 


03 


14631 


46315 


S1P48 


DV 


02P08 


01P28 




65416 


73 


%Jf £•» A £m- X 


02061 


^ 51P49 


HJ 


00008 


01P31 




65417 


4 5 


00010 


02064 


£S1P50 


RJ 


02P11 


02P09 




65420 


37 


02124 


02122 


C S1P51 


MJ 


OOOOO 


01P42 




65421 


45 


00000 


020 77 


JL S2POO 


SP 


01P28 


00002 




65422 


31 


02061 


00002 


i S2P01 


SA 


01P28 


00001 




65423 


32 


02061 


00001 


§ S2P02 


TP 


A 0000 


01P28 




65424 


11 


20000 


02061 


p S2P03 


S5 


AOOOO 


000 51 




65425 


34 


20000 


00063 


^ S2P04 


Z J 


02P06 


00000 




65426 


47 


02117 s 


OOOOO 


0- S2P05 


SN 


0CP02 


00000 




65427 


33 


000 i 1 


OOOOO 


S2P06 


TV 


03P06 


02P04 




65430 


16 


02134 


02115 


S2P07 


AT 


02P12 


02P08 




65431 


35 


02125 


62121 


S2P08 


RA 


07P02 


0OT02 




65432 


21 


02170 


00031 


S2 n C9 


LQ 


00 TO? 


0O0 35 




6 5433 


5 5 


00031 


00043 
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S2P10 
S2P11 
S2P12 
S3P00 
S3P01 
53P02 
S3P03 
S3P04 
S3P05 
S3P06 
S3P07 
S4P00 
S4P01 
S4P02 
S4P03 
S4P04 
S4P05 
S4P06 
S4P07 
S4P08 
S4P09 
S4P10 
S4P11 
S4P12 
S4P13 
S4P14 
S4P15 
S4P16 
54P17 
54P18 
S4P19 
S4P20 
S4P21 
&4P22 
S4P23 



I J. 
MJ 
RA 
SN 
AT 
AT 

ra 

RA 
SP 
MJ 
00 
TP 
LQ 
TP 
TU 
RJ 
TP 
SP 
RJ 
TP 
RP 
TP 
EW 
EW 
EW 
RP 
RS 
U 
Hj 
00 
RJ 



0-QT03 
00000 
07P01 
00015 
02P12 
03P07 
00.000 
00000 
00015 
00000 
00005 
0CP03 
04P23 
01P44 
01P44 
01P37 
04P19 
00T01 
02P11 
04P18 
3 000 3 
04P20 
00000 
10000 
1 0000 
20003 
04P11 
QGQ0O 
00000 
00000 
02PI1 



EW 0000 
EW 10000 

£w loboo 

00 70000 



02 POO 
00000 
00T02 
00001 
C3P03 
03P04 
00000 
00000 
00003 
02P06 

00000 

00T02 
10C15 
C1P37 
02P12 
01P05 
01P37 
00015 
02P07 
QOO00 
04P11 
04P11 
09P10 
07P10 
08P10 
04P16 
0CP03 
04P11 
000O0 
OOOil 
03PC0 
09P11 
0.7 PH 
! 8P.I 

oooc- 



SET 


MASK 


PAR 


WD TO 


SET 


EXIT 


SET 


i Mage 


GEN 


IMAGE 


RES! 


ET 


GEN 


IMAGE 


CARD NO 


SET 


TO WR 


9 1 


SOW 


WRI 


IF 



G 



LOOP 



6 54' 3 4 
65435 
65436 
65437 
6544 
65441 
6 544 2 
6 5443 
65444 
65445 
65446 
65447 
65450 
65451 
65452 
65453 
65454 
65455 
65456 
6 5457 
65460 
65461 
65462 
65463 
65464 
6 5465 
65466 
65467 
65470 
6 5471 
65472 
6 547 3 
65474 
65475 
65476 



41 
45 
2:1 
33 
35 
35 
21 
21 
31 
45 
00 
11 
55 
11 
15 
37 
11 
31 
37 
.11 
75 
11 
77 
77 
77 
75 
23 
41 
45 
00 
37 



OOO 3 2 
00000 
02167 
00017 
02125 
02135 
0000 G 
00000 
00017 
00000 
00005 
00020 
02165 
02101 
62101 
02072 
02161 
00030 
02124 
02160 
30003 
02162 
00000 

i&ooo 

10000 
20003 
02151 

ioooo 

00000 
30000 

02124 



77 00000 

77 10000 

77 10000 

00 70000 



02111 

00000 

00031 

0000 i 

-62131' 

02152 

OOOOO 

00000 

00003 

021.17 

OOOOO 

00031 

10017c 

02072 

02125 

02032 

02072 

00017 

02120 

10000 

02151 

02151 

02230 

02200 

02214 

02156 

00020 

02151 

OOOOO 

00013 

02126 

02231 

02201 

C2215 

OOOOO 
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Identification Tag: 

Type: 

Special Storage: 

Service Entrance: 
Program Entrance: 
Program Exit: 
Alarm Exit: 
Machine Time: 



RW-137 

MDP-U 
Pg. 1 of 
5/1/56 
THE RAMO-WOOLDRIDGE CORPORATION 
Los Angeles k5, California 

OCTAL CARD DUMP 

Specifications 

MDP-U 

Service routine (with subroutine entrance ) 

The constant and temporary storage pools are 
not used by this routine. 

Address ^0015b 

Address 40015b 

Address 40020b 

The alarm exit is not used by this routine. 

2.7 seconds plus 0.5 seconds per card maximum 
machine time 

6 words per card 



co 
















1 

a- 
1 





Coded by: 


C. KOos 


April, 1956 


1—1 


Machine Checked by: 


C. Koos 


April, 1956 


X 

0-> 


Approved by: 


W. F. Bauer 


April, 1956 
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Description 5/1/56 

This routine will dump the contents of a group of consecutive ES or 
MD storage cells onto cards. Each card will contain six consecutive 
octal words and the address of the cell containing the first word 
on the card. The following card columns are used: 

Columns 1-12 first word 

Columns 13 - 2k second word 

Columns 25 - 36 third word 

Columns 37-48 fourth word 

Columns £9 - 60 fifth word 

Columns 6l - 72 sixth word 

Columns 76 - $0 address of first word 

Any card for which all six words consist of 36 binary zeros is omitted 
and the next card produced carries a punch in the 12 row of column 74. 
The first and last cards of every dump will he produced even if they 
contain all zeros. Zeros will not be punched at any time in columns 
37 - 72. If the last card reaches the end of ES or of MD before it 
is filled, the remaining columns will be completed by using MD words, 
beginning with address 40000. 

Each card carries an identifying punch in the 12 row of column 73 • 

This routine bootstraps itself into ES to operate and then positions 
cards. At its conclusion it restores the machine to its original state, 
and clears the bull. 

OPERATING INSTRUCTIONS (to be followed when the routine is used as 
a service routine). 

1. Put the computer in test mode, high speed (this step is unnecessary 
for a dump of all ES; pnly). 

2. Set PAK to 4001 5b and start . 

3. Computation will halt with an MSO instruction and Q will contain 
all zeros. 

^° Manually insert the parameter word into Q. 

a , a parameter word of all zeros will dump ES . 



t^ b. in all other cases, place the address of the first worcT 

^. to be dumped in Q u and the address of the last word to be 

dumped in Qy 

Notes : If the starting address is an ES address and the last 

address is either illegal or a drum address, the routine 
will dump up to the end of ES and then exit. An 
immediate exit will occur and no cards will be punched 
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if the starting address is illegal or exceeds the 
last address. 

5. The machine vill halt with an MSO instruction when the dump is 
completed and the machine has been restored to its original state. 

6. If another dump is required , it is necessary only to press the 
start button again to return to step 3 above. 

7. If the operator wishes to stop a dump at any time after step 3 above, 
he needs only to make a forced stop, master clear, and MD start with 
PAK set to IfOOljOb. The machine will^then be restored to its original 
state and computation will halt with the same MSO instruction mentioned 
in step 5. 

PROGRAMMING INSTRUCTIONS (to be followed when the routine is used as a 
subroutine ) . 

1. Enter the routine with the instruction 37 ^0020 40015b . The word 
in your program immediately following the RJ instruction must contain 
the parameter word (as described in step k of "Operating Instructions" 
above). If the RJ instruction is given at address n the parameter 
word will be at address n + 1 and at the conclusion of the dump control 
will be returned to. the instruction address n + 2. 



CQ 



I 

I 

o 
o 
0^ 



X 

a. 
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An Interpretive Subroutine for 
Packed Floating Point Operands 
For the ERA 1103 Computer 



" P. Maloae 

o 
o 
a- 
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h- 

X 
CU 
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Programmers at Wright Field hare felt the need for a compact floating 
point interpretive coding system. This interpretive system should include 
basic floating point arithmetic, elementary transcendental functions and 
floating decimal Flex-coded print or punch output. 

A more convenient packed floating number definition is desirable. 
Consequently, the packed floating number definition of the H03AF was chosen. 

A floating point "Chip" number N must satisfy one of the following 
conditions t 

1) N « 

2) 2 - 12 ? ^ |l|<2 ^ 

The floating point word structure has the following formt 
18 27 



3 


C 


M 



where S - U35 - sign 

C - U3^ — U27 • characteristic 
M - U26 - — U • mantissa 
S and M denote the l's complement representation of x«2^, while C is the 
representation of £y +- 12&J scaled 27 or when S = 1, C is the l»s complement 
form of Jj 4- 128_7 scaled 27. 

For N - 0, S r C « M « all 0»s, or all 1*8. 

For 2~ 12 ? - N < 2^ , N is represented in the form x.2*, where J - x < 1 
and -128 - y - 127. Then, S « 0, M - x (scaled 27), and C B £j t 128.7 
(scaled 27 )• 

For -2 12 7 < N - -2" , N is represented by the one's complement of 
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00 
01 
02 
03 
04 
05 
06 

07 
10 
11 
12 
13 
14 
15 
16 

17 
20 
21 
22 
23 
24 

CO 

S 25 

o 

o 26 

o 
o 

^ 27 

x 

a, 



Repeat j^j n 



R 

R - 
R • 
R -f 
R 
u' 



♦ u 1 — 

U l - 

■f u« - 

* R'u 1 

4- RmI 1 



* R, A, Q 

-» R» A, Q 

-» R» A, Q 

■* R, A, Q 

-* R» A, Q 

R, A, Q 



30 Repeat 



ii. 



(R + u*) • R-^R, A, 
Repeat jj_ ja_|_ w 

u t 4. yt 



u« • 
u« 

R 



-> R, A, Q 

-» R, A, Q 

-» Rt A, Q 

-> R, A, Q 

Rf A, Q 

4* R • ▼• -* R, A, Q 

( u i + yt) . r^h, A, Q 

Repeat jj_ J*J- * 
R 



yi . 

4-U 1 * 



▼• 



t u'-^v 1 , R, A. 



R - u» 



R • 
R + 



->Y«, R, A # 

', R, A. 



u^v 1 



u , -»T , f R, A. 
R + Rtt^v 1 , R, A # 
u» f R-u^r 1 , R, A. 
(R + xl 9 ) * R-»r«, R, A. 



31 


u i t T i — > 


V 1 , 


R, A. 


32 


U l _ yl _-» 


v f , 


R, A, 


33 


u t . yl » 


V 1 , 


R, A. 


34 


u t -i- yl » 


V 1 , 


R, A. 


35 


R f u< • t'-^t' 


j Rf A« 


36 


U 1 4- R'V 1 » 


v f , 


R, A. 


37 


(u» + v») •R~>v t , 


Rf A* 


40 


*eo9 u f — » 


▼', 


R, A, 


u 


*sin u« — » 


T», 


Ry A, 


42 


V5T" — * 


T f , 


R, A. 


43 


e — > 


V*, 


R^ A* 


44 


lnu» — > 


V*, 


R, A. 


45 


^Un- 1 ^*— # 


^% 


'R, A.. 



46 Print u» (car ret If r f - o) 

47 Punch u« (car ret if v» - o) 

»Radiama 
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The CHIP Instructions are in the following form! 



U_ 



OP 



u« 



T« 



in which OP is a two-octal-digit pseudo-code and u 1 and v 1 are four-octal-digit 
address references, 14 occupies uj$ 9 • • • ujq$ OP occupies U29 • • • u^. 
u 1 occupies U23 • • • *il2J *nd v 1 occupies u^ • . . u^ Because of the 
four-octal-diglt limit on address references, operands must be located in HSS 
(High-speed storage). 

HSS address 00005 is designated as R. After every interpretive instruction 
the normalised, rounded, packed result is left in R and the double extension of 
R is left in A. 

The repeat order ,00, functions in a manner analogous to regular 1103 



00 



J ! n 



, j occupying 



operation* It is coded in the forms 14 
^23* ^22* ^21* w denotes the address from which the next instruction will be 
taken after the termination of the repeat. Repeat orders, 10, 20, 30, operate 
in exactly the same way as above* 

It should be noted that addresses 00003 thru 00016 are used as temporary 
8 tor age. Using 00005 as a u* or v 1 address will yield the correct result 
except in the following cases t 

14 06 0005 gives 2R 2 

14 16 0005 v* ■ 2Rv» 

14 26 0005 ▼' " 2R 2 

14 36 0005 ▼' " 2Rv« 

The alarm exit of "Chip" is at 00002. The following "Chip" alarm entry has 
been added to the alarm print routini (CV-3) which places the packed operands 
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co 



i 

I 

o 
o 
o 



X 

a. 



1 


31 


00015 


2 


27 


20000 


3 


16 


00000 


4 


45 


00000 



of the current instruction in A^ and A r i 
75750 37 00224 00224 

00044 
00016 
75700 
75701 

For those operations involving only one operand, the contents of u f will 
be placed in Ar when an alarm occurs. If an alarm occurs during a repeated 
Instruction at address y, the address printed out will be (W-l) which may or 
may not be y» 

An alarm will occur if the result of an interpretive operation exceeds 
the limits of the "Chip" number definition. This means that a result too 
small in absolute magnitude will also give an alarm. By changing address 
00213 from the 46 00002 00216 to 46 00214 00216 all results such that 
< Result < 2"^ 2 ? trtjj ^ replaced by zero without an alarm. 

Furthermore, an alarm occurs when a division by zero or by an unnormalized 
number is attempted} when the square root of a negative number is attempted; 

ia. 

if the absolute value of the argument in the sine-cosine routine exeeeds 2 , 
if the argument in m u is less than -2^ 8 or greater than In 2^j or if in the 
logarithm routine, the argument is equal to or less than zero. 
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CODE 



PX 71900x9^(138) 

FUNCTION LIMITS 



TIME 



INTERVAL TESTED 



ERROR 



METHOD 



40, a * Cosine, Sin* | u' ) < 2 1 * 7< 

& Square Root * u^JT 127 7.5ms 

43 Exponential -2r Q <.n*<lxiSr^ 14.9ns 

44 Natural Log o* u«<2 127 7.1"» 

45 * Arc Tangent |u»/<2 127 8.0ms 



0(.05) 20 

0(100) 12,500 

-2.5 (.02)2.5 
-77(1) 77 
.02(.02) 5.0 



-20( e l) 20 



|E maxj<. 10" 7 
|Er/< TT 7 ^ 

(Er/< 2"^! 
|Er/< 2*27 
|E iaaa|<ld Q 7 

I E aaxj^lO" 7 



Rand Poly - Sheet 16 

Newton 

Power Series 

3and Poly - Sheet 56 

Rand Poly - Sheet 13 





* Radiams 




Average 

Times for Other Orders 




I 1 


Addition 


3.2 ms. 


I 2 


Subtraction 


3*3 as. 


X3 


Multiplication 


3.1 ms. 


X4 


Division 


3.6 ms* 


X 5 




5*1 ms. 


X 6 


Multiple Orders 


5.1 ms« 


X7 




5*1 ms. 


46 


Print 


2 8ec /word 


o 47 


Punch 


.27* 8C /word 


i 

to 
to 
to 







Where E max is marlmma error 

Er is maxlimim relative error 



CD 
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Printed or Punched Output - Um of the print (46) or punch (47) orders 
causes the packed floating point number at address u to be printed or 
punched in floating decimal form* The format for auoh a number contains 
fourteen charaatere in the formt 

spX.XXXXXXXspYYSP 

l 2 3 4 5 * 7 M WU12 13 U 

Characters 1 thru 10 print out the decimal mantissa and characters 11 thru 
13 print out the power of ten by which the mantissa is to be multiplied* 
Every such number is followed by a space* 

There is also the option available to the programmer for a carriage 
return before printing or punching* This is accomplished by putting zero's 
in the t portion of the print or punch order* Used with a repeat order 
which has J*3, It is possible to print or punch several numbers in con* 
seeutlve storage addresses on one line using two lines of coding* 
B 14 00 3 005 B+2 

fi+i 14 47 790 0000 
IH& continuance of program 

Using these orders, a> programmer has at his disposal a wide variety of 

possible formats for output* 

It should be noted that "Chip" is oof a standard subroutine* The 

entries, temporary storage* constant pool, basic arithmetic, and function 

£ routines occupy in that order the first 7005 ^S addresses* 

CO 
I— I 

Y anile the choice of pseudo-codes available in the interpretive 

g repertoire is perhaps not as complete as some might desire, it is felt 

that considerable programming flexibility is achieved while compactness 

is retained* 



o 
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00000 45 00000(50000) Normal Exit 

00001 45 00000 00100 Entry 

00002 1*5 00000 75750 Alarm Exit 



00005 00 00000 00000 

0000k 00 00000 00000 

00005 00 00000 00000 

00006 00 00000 00000 

00007 00 00000 00000 

00010 00 00000 00000 

00011 00 00000 00000 

00012 00 00000 00000 
00015 00 00000 00000 

00014 00 00000 00000 

00015 00 00000 00000 

00016 00 00000 00000 



Mantissa of U Operand 

TEMPORARY STORAGE 
Characteristic of U Operand 

Chip Accumulator "R, a also Mantissa of V Operand 

Characteristic of V Operand 

U 1 Address Stored in U-Portion 

V 1 Address Stored in U & V -Port ions 

Repeat Counter 

j Counter r- 

Temporary Storage for R 

Current Instruction 

Packed 0- Operand 

Packed V- Operand 



CO 
CO 



I 

o 

I 

o 
o 



X 

cu 



00017 00 CfcOOO 00000 

00020 20 14000 00000 

00021 02 00000 00000 

00022 15 05620 57757 
00025 5^ 00005 24110 

00024 00 00000 00050 

00025 14 44176 65211 

00026 06 22077 52504 

00027 00 00000 00100 



•5 Scaled 27 
Chip 1 
1 Scaled 31 
In 2 Scaled 34 
Scaling Constant 

2^10 

it Scaled 32 

n/2 Scaled 32 
6 ^10 



CHIP CONSTANTS 
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00030 00 00000(30000) 

00031 00 00000 00200 

00032 00 00000 00223 

00033 ^0 07777 77777 

00034 37 70000 00000 
00055 00 00000 00777 
00036 00 00000 00206 

00037 00 00000 00045 



Scale Factor Storage 
128 10 

Mantissa Mask 

Characteristic Mask 

Three -Octal -Digit Extractor 



CO 
CO 



I 

o 
1 

o 
o 



X 

CU 



00040 00 00000 00000 

00041 00 00000 00002 

00042 61 00000 00045 

00043 00 00000 00003 

00044 00 00000 00004 

00045 00 00000 00037 

00046 00 00000 00052 

00047 00 00000 00074 

00050 00 00000 00070 

00051 00 00000 00064 

00052 00 00000 00062 

00053 00 00000 00066 

00054 00 00000 00072 

00055 00 00000 00060 

00056 00 00000 00033 

00057 00 00000 00013 



Zero 

2 and "Color Shift" 

Prin£ and "Car. Return" 

3 
4 

Flex Code 
Flex Code 1 
Flex Code 2 
Flex Code 3 
Flex Code 4 
Flex Code 5 
Flex Code 6 
Flex Code 7 
Flex Code 6 
Flex Code 9 



CONSTANT POOL 



11 



10 
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I 

o 
o 
o 



X 

a. 



00060 


00 00000 00012 


10 10 


00061 


00 00000 00056 


* ■ 


00062 


31 10375 521*21 


ff/k Scaled 35 j if/^ Scaled 34 


00063 


31 1*6311* 631^6 


0.1 10 Scaled 38 


00061* 


00 00000 00077 


Six-Bit Extractor 


00065 


21 6761*3 2U77 


Degrees to Radians Scaled 40 


00066 


20 00000 00000 


.5 Scaled 35 


00067 


00 00000 00007 


Octal Digit Extractor 
235.! 


00070 


37 777 U 77777 


00071 


00 77777 00000 


U Extractor 


00072 


00 00000 77777 


V Extractor 


00073 


00 00001 00000 


U Advance 


0007** 


00 00000 00001 


V Advance 


00075 


00 00001 00001 


U and Y Advance 


OOO76 


00 07777 07777 


Four-Octal Digit U and V Extractors 


00077 


00 00000 00110 


^10 


00100 
00101 


11 oocAo 00011 
31 00000 00000 


Set Repeat Ctr. to Zero 

EXPANSION 


00102 


34 0007k 00017 




00103 


15 20000 00101* 




0010k 


C11 (3000CJ 10000) 


Transmit Current Instruction to Q 


00105 


11 10000 OOOU* 


Store Current Instruction in 00014 


00106 


51 00076 00010 


Extract V 1 


00107 


31 20000 00017 
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00110 


15 20000 00010 


y x . 2*J ♦ T x Stored in 00010 




00111 


55 10000 00003 






00112 


51 00076 00007 


u 1 • 2*5 Stored in U-Portion of 00007 




00113 


55 00014 10006 


Shift Current Instruction Six Places in Q 




00114 


16 00010 00225 


Set up: Store Result at t 




00115 


13 00117 00147 


Set up: R as U Operand 




00116 


15 00007 00157 


Set up* u as Y Operand 




00117 


11 00005 00013 


Store Previous Result in 00013 




00120 


44 OOI35 00121 


Test PCc PC » Pseudo-Code 




00121 


44 00123 00122 


Test PCk 




00122 


16 00104 00225 


Set up 1 Store Result at Q 




00123 
00124 


44 0012k 00126 
15 00007 00147 


Test PC q 

J DECODE© 
Set up» u as U Operand 




00125 


15 00010 00157 


Set upt t as V Operand 




00126 


kk 00132 00127 


Test PC 2 




00127 


kk 00131 00130 


Test P^ 




00150 


kk 00261 00237 


XI XO Entries for XsO, l t 2, 3. 


/— s 


00131 


kk 00147 00256 


X3 X2 


CO 
CO 
f— 1 


00132 


kk 00134 00133 


Test PCj 


o 


00133 


44 00307 00246 


X5 Xk Entries for X = 0. 1, 2, 3. 


w 

o 

l—i 


00134 


44 00317 00313 


X7 X6 


X 

a, 


00135 


37 OOI67 00157 


Unpack for Functions 




OOI36 


11 00016 20000 


Contents of vr into A 




00137 


55 00014 10007 


Shift Current Instruction Seven Places in Q 
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0011+0 kk 00002 OOll+l 

001U1 kk 00002 00H+2 

00U2 kk OOU+5 0011+3 

OOU+3 kk QOlkk 003*0 

0011+1+ Wf 001+22 00323 

001*+5 1+1+ 00557 0011+6 

OOiU+6 kk 00505 00*+53 



Alarm for Undefined Pseudo- Codes 

Alarm for Undefined Pseudo- Codes 

Test PC 2 

Sine -Cosine Entry 

Entry for Exponential or Square Root 

Print/Punch Entry 

Entry for Are Tan or Logaritm 



CO 
CO 



o 
I 

o 

O 



a, 



0011+7 11 (30000) 00015 

00150 11 00015 10000 

00151 51 00033 00003 

00152 51 00031+ 0000k 

00153 kk 00151+ 00156 
00151+ 27 00003 00031+ 

00155 27 0000U 0003*+ 

00156 55 oooo»+ 00011 

00157 11 (30000) 00016 

00160 11 00016 10000 

00161 51 00033 00005 

00162 51 0003U 00006 

00163 1+1+ 00161+ 00166 
00161+ 27 00005 00031+ 

00165 27 00006 0003k 

00166 55 00006 00011 

00167 37 00167(00170) 



Store U Operand 

Store U Mantissa 
Store U Characteristic 



UNPACK 



Store Y Operand 

Store V Mantissa 
Store V Characteristic 
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00170 


21 00006 0000k 




00171 


36 00032 00006 




00172 


71 00003 00005 




ooi?3 


1*7 0017k 00220 




0017k 


11 00031 00005 




00175 


k6 OOI76 00177 




00176 


13 00031 00005 




00177 


7k 20000 00030 




00200 


11 20000 10000 




00201 


21 10000 00005 




00202 


U3 10000 00205 




00203 


21 00006 0007k 




0020** 


55 00005 10033 




00205 


5k 10000 00100 




00206 ( 


11 OOO3O 20000 




00207 


k2 00037 00211 




00210 


36 00077 20000 




00211 


35 00006 20000 




00212 


5k 20000 00033 


CO 
r-i 


00213 


k6 00002 0021$ 


1 

1 


0021** 


11 OOOkO 20000 


o 


00215 


k5 00000 00220 


X 

a. 


00216 


k2 00070 00221 




00217 


k5 00000 00002 



MULTIPLICATION 



NORMALIZE, ROUND, PACK 



NOTE 



: (0000&) is Alarm Exit for 
< J Result I <2" 1 . 9 (0021k) 
By Zero With No Alarm. 



Replaces Result 



Alarm, Characteristic Too Large 
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00220 


11 20000 10000 








00221 


52 00055 00005 








00222 


44 00225 00224 








00223 


27 00005 00054 








00224 


57 00224 60225) 








00225 


11 20000^0000) 


Store Result 


TERMINATION 




00226 


41 00011 00251 


Repeat Instruction? 






00227 


11 00005 20000 


Result to A 






00250 


45 00000 00000 


Jump to Exit 






00251 
00252 


55 00012 10001 
44 00255 00254 


j to Q 


REPEAT MODIFICATION 




00235 


21 00007 00075 


Advance vr 






00254 


44 00255 00256 








00255 


21 00010 00075 


Advance ▼* 






00256 


45 00000 00115 








00257 
00240 


11 10000 00012 
16 00010 00000 


Store j 

w to V-Portion of F x 


SET UP REPEAT 




00241 


21 00104 00075 






CO 


00242 


55 00014 10030 






?0 

i-H 

1 


00245 


51 00055 00011 


Store n in 00011 




s 
1 

O 

o 


00244 


41 00011 00104 


Store n - 1 in 00011; 


Jump to Next Instruction 




00245 


45 00000 00227 


Exit if n 3 






00246 
00247 


57 OOI67 00147 
12 00005 20000 


Unpack 


DIVIDE 
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00250 *2 OOOI7 00002 

00251 23 0000* 00006 

00252 35 OOO36 00006 

00253 5* 00003 20035 
0025* 73 00005 20000 
00255 *5 00000 00173 



Alarm if Divisor Unnormalized or Zero 



Jump to Pack 



00256 37 00167 001*7 

00257 13 00005 00005 
00260 *5 00000 00262 



Unpack 

Negate V Operand 

Jump to Add 



SUBTRACT 



CO 
CO 



a* 
1 

o 
o 
o 






00261 37 OOI67 001*7 

00262 11 0000* 20000 

00263 36 OOOO6 20000 
0026* *6 00275 00265 

00265 *2 00037 00271 

00266 11 0000* 00006 

00267 5* OOOO3 20010 

00270 *5 00000 00306 

00271 16 20000 00272 

00272 5* 00003 (30000) 

00273 35 00005 20000 

0027* *5 00000 00305 

00275 13 20000 20000 

00276 i(2 00037 00301 

00277 5* 00005 20010 



Unpack 



ADD 
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CO 
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i 

o 
i 

o 



a. 



00300 *5 00000 00506 

00501 16 20000 00502 

00502 5fc 00005(50000) 

00505 55 00005 20000 
0050U 11 OOOCA- 00006 
00505 5* 20000 20010 

00506 45 00000 00175 



Jump to Pack 



00507 


57 0022* 0011*7 


u-v 


-R ♦ u • v or 


00510 


15 00512 001*7 


Set up 1 Previous Result as U 


P ♦ R • u 1 


00511 


15 0016* 00157 


Set upi RiflV 




00512 


*5 00015 00261 


Jump to Add 




00515 


15 00512 001*7 


Set up 2 Previous Result as U 


1 r, 1 

u ♦ R • u or 


0051* 


57 0022* 001*7 


U«V 


u 1 ♦ R • Y 1 


00515 


15 00007 001*7 


Set up* u 1 as U 




00516 


*5 00000 00511 


Jump to (U ♦ R) 




00517 


57 0022U 00261 


U ♦ V 


(u 1 ♦ v*) . R 


00520 


15 0016* 001*7 


Set up: R as U 


(R ♦ ul) . R 


00521 


15 00512 00157 


Set up) Previous Result as V 




00522 


*5 00000 001*7 


Jump to Multiply 





00525 *6 00002 0052U 

0052* *7 00525 00175 

00525 51 00006 00107 

00526 kS 00527 00550 

00527 55 00005 00001 



Alarm if Argument Negative 
If Zero, Jump to Exit 



yfl? 
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00330 35 00027 00006 

00331 11 00066 10000 

00332 11 10000 00003 

00333 31 00005 00051 
0033* 73 00003 20000 

00335 32 00003 00107 

00336 U 20000 10000 

00337 23 20000 00003 
003*0 *7 00332 003*1 
003*1 31 10000 00001 

003*2 *5 00000 00173 



Jump to Pack 



CO 
CO 



I 
I 

o 
© 



Oi 



003*3 11 000*0 00003 

003** ** 003*6 003*5 

003*5 U 00026 00003 

003*6 23 00006 00052 

003*7 *6 00550 ooooe 

00350 35 00055 20000 

00351 *6 00352 00353 

00352 11 000*0 00005 

00355 36 0002* 10000 

0035* 35 00025 00555 

00555 Coo 00000 00000) 

00556 ** 00557 00560 

00557 11 20000 20000 



Store Zero in 00003 for Sine 



Test PC, 



Store Tf/2 in 00003^ for Cosine 



Alarm if|u X U 2 18 = 262,14*. 



SIKE-C0SINE 



Replace ur By Zero 



u 1 Into A Scaled 32 



Zero Into A L if IT Scaled "Down" 



16 
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WF-138 





00560 


55 00005 20000 






00561 


75 00062 10000 


6 A R < 2TT Scaled 32 




00562 


11 00066 00005 


Store Sign in 00003 




00565 


42 00026 OO567 






00564 


56 00025 20000 






00565 


55 00005 00001 


Shift Sign 




00566 


45 00420 OO565 






00567 


54 20000 00042 






00570 


75 00026 00005 


X Into 00005 Sealed 34 




00571 


71 10000 10000 






00572 


54 20000 00046 






00575 


11 20000 00006 


x 2 Into 00006 Sealed 34 




00574 


11 00421 00004 


Cq Into P i 




00575 


15 00566 00401 


Set u Address of OO46I 




00576 


11 00045 00015 


Set Index 




00577 


71 00006 00004 


x 2 . P A 




00400 


54 20000 00046 






00401 


55 (50413 00004 


p i ♦ 1 


CO 
CO 

f-H 


00402 


25 00401 00075 




1 

cr- 

1 


00405 


41 00015 00577 




o 
o 
o 


00404 


71 00005 00004 


x • P 


X 


00405 


54 20000 00046 






00406 


11 20000 00005 


Store result in 00005 




00407 


11 00005 10000 





17 
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00410 44 00411 00412 

00411 13 20000 00005 

00412 11 00031 00006 

00413 Jk 00005 20001 

00414 45 00000 00173 

00415 31 10375 52202 

00416 65 52420 76452 

00417 01 21464 25751 

00420 77 73155 h6^h6 

00421 00 00117 52757 



Examine Sign 



Jump to Pack 

C A Rand Coefficients Scaled 34 

Co Rand Coefficients Scaled 34 
n Rand Coefficients Scaled 34 

Oj Rend Coefficients Scaled 34 
C 9 Rend Coefficients Scaled 34 



CO 
CO 



I 

I 

o 
o 
o 






00*1-22 23 00006 00032 

00423 46 00424 00002 

00424 35 00055 20000 

00425 k6 ©0426 00427 

00426 11 00040 00005 

00427 56 t 00451 10000 

00430 35 00025 00431 

00431 (00 00000 00000) 

00432 44 00433 0043k 

00433 U 20000 20000 

00434 73 00022 00006 

00435 11 20000 00005 

00436 11 00452 00003 

00437 H 00021 00004 



EXPONENTIAL 



Alarm 



Zero to 00005 



u 1 Into A Scaled 34 

Zero to A L if u 1 Scaled "Down" 

x Into 5 

11 10 Into 00003 Scaled 31 

1 Into 00004 Scaled 31 



18 
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WF-138 



00440 71 00005 00004 

oo44i 73 00003 20000 

00442 32 00066 00105 

00443 11 20000 00004 

00444 23 00003 00021 

00445 li-T 00440 00446 

00446 21 00006 00031 

00447 31 00004 00004 

00450 45 00000 00173 

00451 00 00000 00026 

00452 26 00000 00000 



X . Pi 



P i ♦ 1 Into ° 000 ^ Sc *l« d 31 



Characteristic Into 00006 
• x Into A Scaled 35 
Gk> to Pack 

2210 

11 10 Scaled 31 



CO 
CO 



I 

o 
o 






00453 23 00006 00473 

00454 54 00005 20010 

00455 36 00066 00005 

00456 46 00002 00457 

00457 H OOO67 00003 

00460 15 00472 00464 

00461 11 00504 00004 

00462 fn" 00005 00004 

00463 54 20000 00046 

00464 35 30474 00004 

00465 (23 00464 00073) 

00466 41 00003 00462 

00467 71 00006 00022 



P - 1 

2ft Into A Scaled 34 

2q-l Into 00005 

Alarm 

Set Index Equal Seren 

Set u Address of 00464 

ag Into P^ 

x • Pi 

p i ♦ 1 



LOG. 



(p - 1) • In 2 



IS 



9-236 



WF-138 



00470 35 00004 20000 

00471 11 00473 00006 

00472 45 00503 OOI73 

00473 00 00000 00201 
0047k 00 00000 00000 

00475 17 77776 10003 

00476 70 00101 77550 

00477 05 23606 I7663 

00500 74 II372 11627 

00501 02 53533 01102 

00502 76 36303 7^363 

00503 00 44750 60721 

00504 77 71310 36772 



In u 1 Into A Scaled 34 

Gk> to Pack 

a Scaled 34 

a^ Scaled 34 

&2 Scaled 34 

ao Scaled 34 

a^ Soaled 34 

ac Sealed 34 

a^ Scaled 34 

a^ Scaled 34 

a$ Scaled 34 



CO 
CO 



© 

O 



X 

a. 



00505 11 00040 00003 

00506 23 00006 00031 

00507 42 00074 00516 
00510 33 00066 00024 
005H 73 00005 00005 

00512 13 00006 00006 

00513 11 00062 00003 

00514 44 005I6 00515 

00515 13 00062 00003 

00516 21 00006 OOO37 

00517 fco" 00520 00521 



Zero Into 00003 
Char, of u - 200, 



ARCTAN 



Negatire Reciprocal 



tf/2 Scaled 34 Into 00003 



-fr/2 Scaled 34 Into 00003 



20 
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WF-138 



CO 



I 
I 

o 
o 
o 



X 

a- 



00520 
00521 
00522 
00523 
0052k 

00525 
00526 

00527 
00550 
00551 
00552 

00533 
0055^ 

00535 
00536 

00537 

oo5ko 
005kl 

005^2 

005H3 
005kk 

005^5 
005k6 

005U7 



11 OOOkO 
35 005k6 
(00 00000 
11 20000 

71 00005 

5* 20000 
U 20000 
11 005^5 
11 005^7 
13 005kk 

I7I 00006 
5k 20000 

(35 30556 
21 0053^ 
kl 00013 
71 00005 
5k 20000 
35 00003 
5k 00005 
11 00051 

k5 00550 
00 00000 
5k 00005 
77 73662 



00005 
00522 
00000) 
00005 
10000 
000k6 

00006 
00015 

0000k 

0053k 

0000k 
000k6 

ooocA) 
00073 
00532 1 

0000k 
000k6 

00005 

20001 

00006 

00173 
00006 

2k052 
k0305 



Replace u 1 by Zero 

u 1 or -1/u 1 Scaled 3k Into A 
x Into 00005 Scaled 3k 



x 2 Into 00006 Scaled 3k 
Set Index Equal Six 
C^c Into P^ 

Set U Address of 0Q53k 
x 2 . P, 



p i ♦ 1 



x • Pj 



tan 4 u 1 Into A Scaled 35 



Go to Pack 



C^ Scaled 3k 



21 



9-238 



WF-138 





00550 


00 26305 45073 


Cjq Scaled 34 




00551 


77 06577 07416 


C u Scaled 34 




00552 


01 42567 67640 


C« Scaled 34 




00553 


75 61447 16451 


Cj Scaled 34 




0055^ 


03 14201 22666 


Cc Scaled 34 




00555 


72 52547 44072 


C» Scaled 34 




00556 


17 77777 51473 


C x Scaled 34 




00557 
00560 


11 00042 OO676 
44 00561 00562 


Set Up Print 

PRINT /PUNCH 
Print or Punch? 




0056I 


21 OO676 00021 


Set up Punch 




00562 


11 00676 00565 


Set up Print or Punch at OO565 




OO563 


16 00564 00565 


Set up Print or Punch Q 




00564 


11 00670 10000 


•Shift Down" Into Q 




00565 


(00 00000 ooocx) 


Print/Punch Q 




00566 


37 00566 (00567) 






00567 


11 00010 20000 


t 1 Into A 




00570 


47 00574 00572 


If A Zero, Print /Punch Carriage Return 


y— N 


00571 


00 00000 00000 


Not Used 


CO 
CO 
1— t 


0C572 


11 00042 10000 


"Carriage Return" Into Q 


1 
1 

© 


00573 


37 00566 00565 


Print/Punch Car. Ret. 


O 


0057** 


U 00016 20000 


u 1 Into A 


O-i 


00575 


11 00044 10000 


•Space" Into Q 




00576 


46 00577 00600 






00577 


U 00061 10000 


"_• Into Q 



22 
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WF-138 



CO 
CO 



I 

I 

o 

O 



X 

On 



00600 37 00566 00565 

00601 57 00601 (30602) 

00602 hi 00605 00603 

00603 16 00667 006U3 
0060l|. h5 00000 00626 

00605 12 00016 00005 

00606 15 0016^ 001V7 

00607 15 00613 00157 

00610 11 oocfco 00677 

00611 (U 00005 20000 

00612 k2 00020 00617 

00613 h2 00671 00622 
0061k 37 00221* 002^6 

00615 21 00677 0007^ 

00616 k$ 00000 00611 1 

00617 37 0022^ 001U7 

00620 23 00677 0007U 

00621 k$ 00000 00611 

00622 37 OOI67 001*7 

00623 23 00001+ OO672 
0062^ 16 20000 00625 

00625 5* 00003 (30000) 

00626 u 000^0 00005 

00627 1+5 00000 00632 



Print /Punch "Space" or "_" 



u 1 Equal Zero; Set up Spaces 

Magnitude of u 1 Into 00005 

Sat up 00005 as U 

Set up 00671 as V 

Zero Into 00677 

N( Packed) Into A 

If 1> N. Go to 00617 

If N< 10, Go to 00622 

Divide by Ten 

Adjust Decimal Exponent 

Multiply by Ten 
Adjust Decimal Exponent 

Unpack Normalized N 



N Into A Scaled 36 
Set Index to Zero 



23 
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WF-138 



CO 
CO 



I 

o 
I 

o 

O 

o 



a, 



00630 11 00673 00005 

00631 71 00003 OO67* 
00652 11 20000 00003 
00633 55 00003 000*0 
OO63* 3* 20000 ©00** 

00635 35 OO676 00636 

00636 (00 00000 00000) 

00637 *1 00005 0063I 
006*0 57 006*0 (0C£*3) 

006*1 11 03675 10000 

006*2 57OO566 00565 

006*3 37 006^3 (006*^ 

006** 37 006*0 00630 

006*5 U 00677 20000 

006*6 37 00601 00575 

006*7 12 00677 20000 

00650 *7 00651 00663 

00651 73 00060 10000 

00652 11 20000 00003 

00653 U 10000 20000 
0065* 3>7 006*0 OO63& 

00655 H 000C3 20000 

00656 37 006*0 DO635 

00657 11 000** 10000 



Sat Index to Six 



I • 10 10 Into A 



fraction Into 00003 Scaled 36 
fraction Into 00003 Scaled 35 



Print/Punch Decimal Digit 



••• Into Q 

Print /fcunch "." 

Optional Exit f or N * 

Translate » Print/Punch Seren More Digits 

Decimal Exponent Into A 

Print/Punch "Space" or "_• 

Magnitude of Exponent Into A 

Translate Exponent 



Print /Punch First Digit of Exponent 

Pri&f/Puneh Last ©igit of Exponent 
■Space" Into Q 
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co 
eo 



i 

o 

o 
o 



X 

CL, 



00660 37 00566 00565 

00661 kl 00005 00660 

00662 45 00000 00226 

00663 11 000*1 00005 
0066* *5 00000 00657 

00665 11 00060 00005 

00666 *5 00000 00657 

00667 00 00000 00665 

00670 00 00000 00057 

00671 20 *5000 00000 

00672 00 00000 00167 

00673 00 00000 00006 
0067* 00 00000 0002* 

00675 00 00000 000*2 

00676 (00 00000 00000) 

00677 fao 00000 00000) 



Print/Punch Spaee 

Go to Termination 

Sot Up Print/PUnch Three Spaces 

Set Up Print /Punch Eleven Spaces 



Shift Bonn 
Chip 10. 



Print or Punch Temporary Storage 
Decimal Exponent Temporary Storage 



25 
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ii du 



WF-139 



TITLE? 



Ixp&Rsica of polynnalal ©£ f©ra 4., " a^xfe 



ENTRIES IF MORE THAN ONE OR NOT STANDARD? 



IK S X 
CODING CHECKl J 



1. Initial location of argument z m 

final location of argument s^ 

Location of the function t 

2. ADDRESSES} 

(a) Instructions s . 



CHECK? X 



f* ® 



BY 



SKLF-RESETriNGj TB S % N O 

Q g®# miacallany ________»__ 



^through. 



01025 



(b) Constants and temporary storage? 01028 

(c) Constant pool used: 000^3 » 00074 



through. 



Temporary storage pool used 



Q00C4-C0006 



3 o INITIAL SETTING OF X s 
(a) Range on xt 



x < i$ *i< 1 






1 

1 

o 
o 



a- 



(b) Scaling of x and f(x)j_£*2 



28 



*(*)*«*». 



(c) Brief description of numeri ml method J 



_£ !* V**^ 



>: ~ F i*^ *n-2 



=* P*,i3C + a 



£x: 



Las 



4* ACCURACY* 



5 # ALARM* CONDITIONS FOR OUT-GF-RANGE TESTt 

Alarm If 1 H|aj3S 1 e2 28 | > 2 35 -l 



9-243 
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6. 


SPEED t 








--"^ 








7. 


UISCELLANY: 


Address of a^ in ft u $ address of x in Qy • 
Q55 must be or 1 according as descending or 






ascending order of location of a^. 






Index n (highest power of x) in A R . 






Note: Scale factor may be changed by corresponding 






change in shift instruction (01011). 






























































CO 
■—1 

1 






a- 
i 

© 
© 






i— i 






X! 
CL, 

























TOTT 



5VF-139 





01000 


37 


75700 


75702 


Alarm 




01001 


45 


00000 


(30000) 


Exit 




01002 


16 


10000 


01024 


Entrance 




01003 
01004 


15 
16 


10000 
10000 


01010 
01010 


Set 01010 




01005 


36 


00074 


00004 


Form (n-1) 




01006 


W 


01007 


01010 






01007 


21 


01013 


01026 






01010 


71 


(30000) (30000) 


a n x 




01011 


5k 


20000 


00054 






01012 


11 


20000 


00006 






01013 


21 


01010 


00073 






01014 


15 


01010 


01016 






01015 


n 


00006 


20000 






01016 


35 


(30000) 


00005 


«n x + a n-l 




01017 


k3 


20000 


01021 






01020 


45 


00000 


01000 


Overflow alarm 




01021 


41 


00004 


01024 


Index 




01022 


ll 


00005 


20000 




CO 


01023 


45 


00000 


01001 




1 

1 


01024 


71 


00005 


(30000) 




o 
o 
o 


01025 


45 


00000 


01011 




X 

a, 


01026 


02 


00000 


ocooo 


Constant 
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Cover Sheet 
5/25/55 



THE RAMO-WOOLDRIDGE CORPORATION 
Los Angeles k$ } California 



Interpretive Floating Point Package 

Identification Tag: FPP-0 

This package consists of the following which are written 
up separately: 

1. SNAP 10/10/55 

2. SNAP SAMPLER TRACE 3/27/56 

3. Srqp (SNAP Complex) 5A/56 



o 



1 

o^ 
1 

o 
o 
o^ 



X! 
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Page 1 of 4 
March 27, 1956 

SNAP Sampler Trace 

Description 

This routine monitors the course of a SNAP program by punching 
out the results of those SNAP commands which are specified in a list 
prepared by the programmer. A parameter word will indicate the location 
of this list. 

This list has the following specifications: 

a. The list is made up of sublists of four words each. 
These sublists have the form: 

00 FA LA 

00 Np Ns 

00 00000 00000 

00 00000 00000 
FA is the address where the trace is to start and LA 
the address at which it is to stop. Np is the number 
of times FA is to be passed before starting the trace, 
while Ns is the number of times the section FA to LA 
is to be traced. The last two words are used by the 
trace to store the blocked instructions. 

b. This list must not be placed in cells 15b thru 107b, but 
may be put on the drum. In any case, a parameter word 
00 Lo Lf will specify its location. Lo is the address 
of the first word of the list and Lf is the address of 
the last word. This parameter word must be loaded into 
cell 71777b. In the event this word is all zero a 

q complete trace of the program is automatically performed. 

^ c. Any number of sublists may be used. A particular address 

1 

°t must appear only once in the list since blocking a 

o 
§ blocked instruction is not possible. 

r-H 

^" d. The storage addresses FA and LA must be the addresses ir, 

x 

^ which the instructions to be blocked are actually stored 

at the time the blocking routine is activated. 
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The operation of the trace is as follows: 

a. When a blocked FA is reached in the program, N and 

N are examined. If N = 0, N £ then tracing is 
s p 7 s ' ^* 

initiated and a start indicator placed in the word 

containing N and N . On the other hand, if N =0 
p s P 

and N 4* does not occur, then no action is taken, 
s 

b. At each SNAP execution, after a trace start, the F 
register is transferred to the next available position 
in the trace output hopper (last seven cells in IS). 
When this hopper contains the results of six SNAP 
commands (three IP instructions) then the SNAP output 
routine is used to punch a card containing the informa- 
tion in the trace hopper. The identification field of 
the output card contains the address of the instruction 
which produced the numbers in fields one and two. This 
address is in octal and will be 1725 if the instruction 
was an FA. The SNAP output command operation is in no 
way altered during tracing. 

c. To empty the trace hopper at any time, start at 72125b. 
One card will be punched and the machine will stop on 
m with PAK « 77777b* SNAP must be in ES to exercise 
this option. 

d. In the event the trace hopper is emptied when it contains 
no information, a card will be punched containing the 
address 7777 ia the identification field, while the rest 
of the card will be blank. 

e. When a blocked LA is reaehed in the program and if a 
start indicator was set up in the word containing the 
associated N and N then tracing is stopped and the trace 
hopper emptied. Otherwise, no action is taken. 

f . The execution of the instruction at FA will be traced, 
but that at LA will not . 
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o 



g. The seven cells of ES, 1771b - 1777b, cannot be used 
by the programmer if the trace is to be employed. 
Normal SNAP operation will not destroy the contents of 
these cells. 

Programming Instructions 

1. Load cell 71777b with the parameter word 00 Lo Lf where Lo and 
Lf are the locations of the first and last words of the list. 

2. Load the list in form described above. 

3. Start at 72000b. The routine will block the proper instructions as 
per the list supplied, modify SNAP in order to perform the trace, 
and then stop with PAK set at 40012b. 

k. In the event no parameter word is loaded (and no list is supplied) 
a start at 72000b will initiate the blocking routine to modify SNAP 
on MD so that all SNAP commands will be traced. A stop will follow 
with PAK set at 40012b. 

Warnings and Restrictions 

1 . The list can not occupy kells 15b - 107b . 

2. Cells 1771b - 1777b must be reserved for the trace hopper and cannot 
be used by the programmer. 

3. SNAP must be in ES at the time each FA and LA is reached in the 
program. 

4. The instructions in FA and LA must not be read into or out of by the 
program. 

5* Only SNAP commands are traced. 

6. The trace can only be used with SNAP and not with the complex 
version. 



cr> 7, Activating the trace modifies the copy of SNAP on MT- and destroys 

o 

o the complex arithmetic portion of SNAP. To start another program 

r— I 

h- using SNAP or its complex version, it is necessary to restore the 

x 

a. library from magnetic tape . 
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8. An abnormality exists for the following type of a list: 



00 



PA, 



LA, 



o 



i 

I 

o 
o 
o 



X 



00 
00 
00 
00 
00 
00 
00 



N 



N 



pl 


si 


00000 


00000 


00000 


00000 


FA 2 


U 2 


V 


B s2 


00000 


00000 



00000 



00000 



Assume that N., N,, N„, N ? are such that tracing in both sublists 

is concurrent. Further, suppose that FA_, FA ? , LA-, LA., are executed 

in the order given. Hence, the trace will be initiated at FA, and 
once again at FA_. When LA„ is reached, the trace will stop since it 
was started at FA„. 

The instructions from LA„ to LA, will not be traced and the trace will 
be stopped once again when LA- is reached. At this time the hopper will 
be punched. Other unusual combinations can be analyzed in a similar 
fashion. 
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SNIP 

Pg. 1 of ^ 

May 1, 1956 



Interpretive Floating Point Package - Complex 



Identification: 
Type: 

Storage : 



Service Entrance 
Program Entrance: 



SNIP 

Service Routine (with entrance from 
program available) 



Cells 
70000b 



thru 
thru 



1023 

71662b This includes 
SNAP 



The constant pool is used by this routine. 
Address ^OOl^b 
See description 



rr 



I 

o*> 

o 

o 
o* 



X 



Coded by: 

Code Checked by: 
Machine Checked by: 
Approved by: 



C. Koos 

M. Perry 

C. Koos 

C. Koos 

W. Ft Bauer 



January, 1956 
January, 1956 
January, 1956 
April, 1956 
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Description 

SNIP is the complex arithmetic version of SNAP, a floating point 
interpretive package. An understanding of the use of SNAP is presupposed. 

The activation of this routine changes SNAP into SNIP on the magnetic 
drum. The original version of SNAP can be obtained again only by a 
transfer of the Service Routine Library from magnetic tape. 

SNIP performs its operations ^n either real or complex arithmetic depend- 
ing on a mode which is selected by the programmer, and may be changed at 
any time. 

In the complex mode 

1. The complex numbers to be operated on must be in rectangular form, with 
the real and imaginary parts of the number stored in consecutive cells 
(For example, the complex number x + iy would be stored in the machine 
with x in cellc<and y in cell o( + l). 

2. The floating Complex Accumulator requires two cells: Cell 00002, F, 
is used for the real part; Cell 00003 j 0, is used for the imaginary 
part, that is, the two cells 00002 and 00003 constitute the Complex 
Floating Accumulator, F c . 

3. The Polynomial Multiply command of SNAP is changed so that its 
execution will result in computing the absolute value of the number 
stored in F c . 

k. The Fix, Float, Read, Punch and No Operation commands operate exactly 
as in SNAP, while the remaining commands are changed only in the 
sense that they now use both cells 00002 and 00003 for the floating 
accumulator and cells ©Cand o^ + 1 for the argument as explained 
above . 

5. The machine accumulator A contains the real part of the result after 
the execution of any one of these operations. 

6. The Replace and B-box options may be used in all cases that are 
permitted by SNAP, with two consecutive cells being operated on as 
described. Keep in mind that the B-box must be indexed by two when 

^ used in referencing a list of complex numbers. 

Y 7* It if not permissible to load F c with TP instructions; a Load command 

T roust be executed for this purpose* 

o 
o 

£ In the real 



cu 1. All SNAP commands except Polynomial Multiply operate as in SNAP 
itself. 

2. The execution of the Polynomial Multiply command will give the absolute 
value of (F c ) just as it does in the complex mode. 

9-252 



RW-141 

SNIP 

Pg. 3 of h r 

5/1/56 



SNIP commands 



The Complex Accumulator, F c , is defined as two specific electrostatic 
cells which contain the complex number x + iy: cell 00002, F, contains 
x and cell 00003, C, contains y. Both x and y are stored as SNAP 
numbers; that is, each has its own binary exponent. The notation <\ 
represents the address of a complex number x + iy, where x is stored 
at <and y at <* + 1, that is, (<X) = x, {<* + l) = y. 

The following definitions apply when in the complex mode: 



Result 



(F 



(F 

* 

(F 



Yo 




~> <x c -> 



F) 
F) 
F) 
F) 



F) -*A 
F) —>A 
F) -*A 
F) — j> A 

float), RD (read data) and 



The NO (no operation), FI (fix), FL 

PD (punch data) instructions of SNAP are unaltered. The PM (poly- 
nomial multiply) instruction of SNAP is replaced by the absolute value 
instruction whether operating in the real or complex arithmetic mode 
if SNIP has been activated. 



Manual Activation of SNIP 



"^ 



1 

o 
o 



X 

a, 



1. Insure that both this routine and SNAP are intact on the magnetic 
drum. (This can be accomplished by a transfer of the Service 
Routine Library from magnetic tape). 

2. Load the problem program - The program should include the Ramo- 
Wooldridge constant pool, and a jump to start in UoOOOb, as 
supplied by RAWOOF. 

3. Set PAK to kQQ13 and start —this changes SNAP into SNIP and causes 
it to be read into its electrostatic locations, sets the B-box, F, 
C, and output hopper to zero, supplies an appropriate Jump in 
cells zero and one, positions cards on both sides of the reproducer, 
and gives control to cell *+0000b which normally initiates execution 
of the problem program. At this time the routine is in the real 
arithmetic mode. 
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Programmed Activation of SNIP 



Depending on the card positioning desired any one of three different 
return jump instructions may be used to activate SNIP from the program. 
Each assumes that there is a marmal jump instruction in cell 40000b 
(such as that supplied by RAWOOP), and in each case control is returned 
to the instruction immediately following the return jump. 

a. Execution of 37 40000 4001 3b positions cards on both sides of 
the reproducer. 

b. Execution of 37 40000 7l644b feeds one card on the punch side 
of the reproducer. 

c. Execution of 37 40000 JL6k6b omits all card positioning. 

Otherwise the effect of programmed activation is the same as that described 
in step 3 under manual activation. 

Switching Modes 

Activation of SNIP by any one of the methods described above leaves it 
in the real arithmetic mode. At any time after SNIP has been activa- 
ted the mode may be switched as follows: 

• Q?o swi tch from the real mode to the complex mode execute the return jump 

— 37 01541 01713b 

~3k>-switch from the complex mode to the real mode execute the return jump 

— - 37 01541 01715b 

In- either case the desired mode change is accomplished, cell 00003, C, 
is set to zero, and control is returned to the cell immediately following 
-the return Jump. The real mode should ordinarily be used wherever possible 
because it is considerably faster than the complex mode. 

Alarms 

The SNAP alarm routine is used, with the possibility of the same type 
of alarm occurring (EW, RT, DV, FI, RD). It is not advisable to continue 
the problem after an alarm, since either the real or imaginary part of 
a number may have caused the alarm, 
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Identification Tag: 
Type: 

Storage: 

Program Entrance: 
Program Exit: 
Alarm Exit: 
Machine Time: 
Mode of Operation: 



EGN-0 

Complete package on paper tape 
and/or binary cards. 

See storage allocation chart, 

MD Start 

MS at PAK=VAK=50270b 

See section on alarms and stops. 

See section on same. 

Fixed point 



Coded by: 



Machine checked by: 



Approved by: 



M. Stein 
F, Meek 

M. Stein 
F. Meek 

W„ Bauer 



July s 1955, and 
March, 1956 

August, 1955, and 
March, 1956 

April, 1956 
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Description 

This package consists of an input routine, a main routine, and 
an output routine. The input routine reads in the parameters and the 
elements a.., i^j, (the elements on and below the main diagonal) of a 
real symmetric matrix A. The main routine computes the eigenvalues 
of A by reducing it to diagonal form with a sequence of orthogonal row 
and column operations which leave the characteristic equation invariant. 
The corresponding eigenvectors are computed (also by the main routine) 
by performing the same sequence of column operations on an identity 
matrix. The output routine converts and punches on cards the eigen- 
values and eigenvectors in fixed point form. The package will handle 
matrices of order 2^n^38. 

A special mode of operation which requires a minimum number 
of drum accesses is provided for use with matrices of order n^23. 
The special mode is selected by setting manually selective jump switch 
1 to the ON position. Throughout this write-up, T will be defined as 
the matrix the columns of which are the eigenvectors. In the special 
mode of operation, the number of rows of T to be obtained can be 
varied from zero to n and must be specified in advance. Decreasing 
the number of rows of T to be obtained will allow an increase in the 
order of the eigenvalue problem which can be solved. Should it be de- 
sired to obtain eigenvalues only, the special mode will be able to solve 
problems of order n^40. 

With a high speed storage capacity of 4096 words, the ordinary 
mode of operation will be able to accommodate problems of order 
2^n^75, and the special mode, problems of order n^50. If only 
eigenvalues are to be found, the range of n can be extended to n^85. 
The main routine has been written and the drum storage allocated so as 
to make the routine easily adaptable to the 1103A. 

The main routine does not use the "B register", the "modified 
multiply add" instruction, or the "polynomial multiply" instruction 
found only on the Ramo- Wooldridge 1103. 
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Parameters 



1. n is the order of the matrix A. 

2. In the special mode of operation, q is equal to n plus the number of 
rows of T to be obtained. In the ordinary mode of operation, q is 
automatically set equal to n by the main routine. In the special 
mode of operation n and q must satisfy the inequality 

n +n +(q-nr<824„ 

5 

3. N is a positive integer less than 10 associated with each matrix A 

to be run and may be used to identify the output for a given matrix. 

4. s is the binary scale factor used to store the matrix elements a... 
s should be chosen such that 

33 s I i s'*""' 34 

2 <C n ' max I a . . I 2 2 " 

See the appendix for more details in regard to scaling. 

Preparation of Input Data 

The input routine uses CRI-2 to read in the parameters n, q, 

2 s 

10 N and s, scaled 2 , and the matrix elements a.,., i^>j, scaled 2 . 

The first parameter card must contain n with address 00000 and a 12 

punch in column 80; for the special mode of operation, it must contain 

2 
q with address 00001. The second card must contain 10 N with address 

^J 00000, s with address 00001, and a 12 punch in column 80. The third 

Y card must contain 

o 

o a,, with address 00000 



11 



£ a 01 with address 00001 



^ a-,^ with address 00002 



'22 



a^, with address 00003. 
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The fourth card: 

a» ? with address 00004 

a^ with address 00005 

a., with address 00006 
41 

a,_, with address 00007 
42 

and so on The last card will contain a with address n(n+l)-2 

nn 



and a 12 punch in column 80, On all cards the unused field's should be 
left blank. See the CRI-2 write-up (revised 12-9-55) for the details of 
the card format. 

If one wishes to generate the data within the 1103, or if, for any 
reason, one wishes not to use the input routine, see the appendix. 

Switching 

Manually selective jump switch number one is used to select 
either the ordinary mode or the special mode of operation as follows: 

MSJ-1 OFF > ordinary mode. 

MSJ-1 ON " > special mode. 

Manually selective jump switch number two is used to control 
a monitoring typeout provided at the end of each sweep as follows: 

MSJ-2 OFF >> typeout occurs. 

MSJ-2 ON > typeout suppressed. 

Manually selective jump switch number three is used to control 
the output of the rows of T as follows; 

MSJ-3 OFF > the rows of T are punched. 

MSJ-3 ON > the rows of T are not punched. 

The manually selective stop switches are used to provide stops 

(2) 
at the end of each of the three segments of the main routine as 





' A sweep is defined under Mathematical Method. 

2) 

The main routine is divided into segments I, II, and III These 

are described in detail under The Main Routine. 
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follows : 

MSS-1 ON ^ stop at conclusion of segment I. A 

START sets up segment II and jumps to entrance of that seg- 
ment. 

MSS-2 ON ~ ~^> stop at conclusion of segment II. A 

START sets up segment I and jumps to entrance of that segment. 
The setting of MSJ-2 may be changed at this point. 
MSS-3 ON — — ^ stop at conclusion of segment III. A 

START sets up segment I and jumps to entrance of that segment 

Operation Instructions 

1. The package is available on binary cards and/or on paper tape. 

A. If cards are used* place the package deck, two blank cards, 
the input cards for the first matrix, two blank cards, the in- 
put cards for the second matrix, two blank cards, and so on, 
ending with two or more blank cards, in the read side of the 
Bull. Manually "pick a card" and read in the package using 
CRI- 1 (as a service routine). 

B. If paper tape is used, read in the package tape using FRI-0 
(as a service routine). Then place the input cards (as in A. 
above) in the read side of the Bull. Manually "pick a card". 

2„ Set the MSJ and MSS switches as required. Be sure that there are 
plenty of blank cards in the punch side of the Bull. Start at 40000b, 

3. It will read in the input cards for the first (next) matrix, compute 
and type out twelve octal digits (with MSJ2 off) after each sweep 

2J (see the section on Alarms, Stops for an explanation of the type- 

out) and finally stop on an MSS-0 at PAK--VAK>5 0000b. (One may 
avoid this stop by inserting 45 00000 50000b into 50552b. ) 

4. Start. It will punch the eigenvalues and, with MSJ- 3 off, the rows 
>< of T, and stop on an MSS-0 at PAK=VAK=5 0270b ready to read in 

the input cards for the next matrix, Set the MSJ and MSS switches 
for the next matrix and start. 

5. Repeat 3 and 4 for the next matrix, and so on. 
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6. The output cards should be sorted, first on column 80, and then on 
column 77, and then listed with the SNAP output-fixed point 407 
panel. 

Alarms, Stops 

Since all transformations applied to the matrix A are orthogonal, 
it can be shown that S , the sum of the squares of the elements of 

the lower triangle (including the main diagonal) of data at the end of a 
sweep (_IL. orthogonal transformations), is equal to S ', the sum at 
the beginning of that sweep, plus W, the sum of the squares of all off- 

diagonal elements deliberately set to zero during the sweep, The double 

(i-fl) (i) 
precision quantity S - S ~ W is formed in the accumulator and then 

scale factored. The scale factor h is tested to see if the number of 

(i+1) (i) 
leading ins ignifi cants in S '- S - W is large enough. If this is not 

the case the supervisory typewriter will type out an e (for error) 
followed by the standard typeout which gives the sweep count, the scale 
factor of S* - S , and the scale factor of S - S* - W. The com- 

puter will then halt with PAK=00210b. The sweep may be repeated by 
depressing the start key. To ignore the alarm set PAK = 00171b and 
depress the start key. 

The scale factor h must satisfy either 
h Z- (50222b) 
or 

h ^ 37. 
It can be proved that the sequence of S is a inonotonely in- 
creasing sequence which approaches a limit which is less than or equal tc 

(3) 
the square of the norm of A. It is believed that this limit is equal to 



3) 

The norm of A is defined in the appendix under Scaling 
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the square of the norm of A, but the equality has never been proved for 
this process. At the conclusion of each sweep the monotonicity of the 
sequence is checked by observing the sign of S^ - S If S - S Z.0, 

the process will continue. Should this not be the case, i. e. , if 
s (i)_ S (i+D> fe0| 

the process will be assumed to have converged and the computer will 
stop on an MSS-0 at PAK=VAK=50000b, ready to enter the output routine. 

Arguments unacceptable to the square root subroutine used in the 
main routine will cause the computer to halt at address 00230b. At this 
point PAK is set to 00230b. Hence depressing the start key will not cause 
a resumption of computation. 

Since the input routine uses CRI-2, the paragraph under Alarm 
Conditions of the CRI-2 (revised 12-9-55) write-up applies to the input 
routine . 

If s has been chosen too large (or much too small) a MA overflow 
may occur or an MSS-0 error stop at PAK=VAK=00062b may occur. See 
the appendix for more details on this. 

Card Output 

The output routine uses CPO-2 to convert and punch 
1. by rows, the elements d... , i^tj, of the diagonalized matrix D 
(the d.. are the eigenvalues of A and the d.., i f- j are the off- 
diagonal elements which have been reduced, essentially, to 
zero); 
^ 2. by rows, the elements of the matrix T. 

CM 

S Each card contains up to six consecutive elements of a row, an 

>«• 

o identification number, I, and a one -digit card number, C. 

i 2 

o The cards containing row i of D will have I =10 N + i; the cards 

°^ 2 

£ containing row i of T will have 1= 10 N+n+i. All of the cards con- 

a? taining row i of D or T will have the same I and C will run from 1 to k 

where k is the number of cards required to punch row i, 6 elements per 

card. The result of all this is that, assuming several matrices have been 
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run, if the output cards are sorted and listed as in 6, under Operating 
Instructions, a listing will be obtained of the several matrices in the 
order of the least significant digit of N. For each matrix, the order of 
the listing will be: the first six columns of D, the first six columns of T, 
the second six columns of D, the second six columns of T, and so on. 
Thus an eigenvector will be listed as a column directly below its cor- 
responding eigenvalue. The 407 panel is so wired that the setting of an 
alteration switch will cause the paper to eject to start a new sheet at the 
end of each column. 

To bypass the output routine, see the appendix. 

Cards, Tapes, Listings, Flow Diagrams 

The complete package is available on binary cards (to be read 
in using CRI- 1 ) and on bi- octal paper tape (to be read in using FRI-0 
Oft the JGRA paper tape reader). Also, a flexowriter dump (MDP-0) 
listing of the entire package is available. RAWOOP-assembled listings 
are available for the input and output routines only. Detailed flow dia- 
grams for the entire package are on file at the Computing Center. 

Mathematical Method 

The method used by the main routine is the same method as that 
described in the write-up of Illinois Code 141- MO in Illiac Library 
Codes, M-Z. That write-up stats s "Tne operations performed in the 
routine essentially are those described in an unpublished paper by H. H. 
Goldstine, although there are some modifications". 

The method consists of forming the sequence of matrices 

D o = A - 

D i = R i D o R r 

D i +1 = R i+I D i R i+l' 
where R. , , is an orthogonal matrix chosen so as to reduce to zero a 
pair of off-diagonal elements of D. . If the sequence of matrices D. 
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converge to a diagonal matrix D, i, e. , if 

lim D. = D, 
i 

then the elements of D are the eigenvalues of A, because D. , , is 

& l+l 

obtained from D. by a similarity transformation and the characteristic 

equation remains unchanged. Similarly, if the sequence of matrices T , 

i 

whe re 



T. , , - T. R. , , T_. - I, 
l+l i l+l 

converges to a matrix T, i. e. , 

lim T. = T, 
i->o<> 

it can easily be shown that the columns of T are the eigenvectors of A, 

normalized to unit length. The first column of T is the eigenvector 

corresponding to the eigenvalue in the upper left corner of D, and so on. 

If the matrices R. , are always chosen to reduce the largest (in 

absolute value) pair of off-diagonal elements of D. to zero, the method 

(4) 1 

is called the Jacobi method, and it can be proved that the matrices D. 

converge, and it can also be proved that if no two eigenvalues of A are 

equal, then the matrices T. converge. 

The method used by the main routine (and by the Illiac routine) 

is not to reduce the largest pair of off-diagonal elements to zero at each 

step, but to reduce the off-diagonal elements to zero in a definite order, 

namely, working from upper left to lower right below the main diagonal. 

(One such sequence of reductions is called a sweep. ) No proof is known 

^ that such a "modified Jacobi method' 1 converges, but it is believed that 

i— i 

Y such a method will converge for all real symmetric matrices. 

© 
o 

r- 

x 

Cl, 



_ 

G. G. J. Jacobi, "Ein leichtes Verfahren, die in der Theorie der 
Sakularstorungen Vorkommenden Gleichungen numerisch aufzulosen", 
Jn. reine angew. Math. , V. 30, 1846, p. 51-95, 9-263 
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To deduce the pair of elements a. = a, . (k-<j) to zero the 
orthogonal transformation R is chosen to be 

kth col. jth col. 



kth row 



jth row 



cos# 
1 



sin* 



-sm^ 



cos $ 
1 



All elements 
not shown are 
zero. 



■ill 



where the angled is such that tan 2.0 =s a., / (a, , - a..), 
e jk' v kk jj' 



(5) 



Accuracy 

Several matrices have been run with the package, Rosser 
constructed a matrix of order 8 with some of its eigenvalues nearly equal, 
in order to compare two or three different methods of obtaining eigenvalues 

and eigenvectors. This matrix was run with the package and the largest 

-5 
eigenvalue error was about 1' 10 , which represents a relative error of 

-8 
1*10 . Because of the nearly equal eigenvalues, some of the eigenvectors 

were less accurate than others. The worst errors were in the components 

of the vectors corresponding to the three closely- spaced eigenvalues. 

-4 
The largest absolute error was about 3' 10 



1*7 



Rosser, Hestenes, Lanczos, and Karush, NBS Journal of Research, 
v. 47, 1951, pp. 291-296. 
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Hilbert matrices of orders 8 and 29 were run with the package. 
The results for the one of order 8 were compared with results obtained 
on the Illiac (which has 4 more bits than the 1103) and the results for 
the one of order 29 were compared with results obtained by the Univac 
at N. Y. U. , using Givens 1 method. For both matrices, all of the 
eigenvalues agreed through the eighth decimal place (each matrix has 
for its largest eigenvalue a number slightly less than 2). 

Also, several matrices with all elements equal to one were run. 
Such matrices have n- 1 eigenvalues equal to zero and one eigenvalue, 
X. , equal to n, the order of the matrix. For n=40, 8 correct significant 
digits were obtained for \. . For n=38, the same accuracy was obtained 
for X and all of the eigenvector components were correct through the 
8th decimal place. 



Machine Time 

The machine times given below are in seconds. They include 
card input of the data (2 +7—5 — £ cards) and card output of the re- 
suits (2 + n +' (n-6) + (n-12) + . . . + (n-6k) + (q-n) j£j cards): 10 ' 



7T\ r 

A 'Matrices H with h.. = -7—; — r 



(7) 

{aj means a if a is an integer, b+1 if b is the integral part of a and a 

is not an integer. 

(8) 

The last term in the series, n-6k, is the last such term which is 

positive. 
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n 


q 


type 


mode 


number of 
sweeps 


machine 

time (in seconds 


22 


%% 


all ones 


special 


2 


125 


31 


62 


all ones 


ordinary 


2 


296 


38 


76 


all ones 


ordinary 


2 


471 


40 


40 


all ones 


special 


2 


228 


8 


16 


Rosser 


special 


6 


39 


32 


64 


Rosser 


ordinary 


5 


467 


40 


40 


Rosser 


special 


6 


311 


8 


16 


Hilbert 


special 


4 


29 


29 


58 


Hilbert 


ordinary 


4 


310 


The Main Routine 









Reading in the package from binary cards or paper tape places 

the input routine, the three segments of the main routine, and the out- 

(9) 
put routine on the drum. Starting at 40000b (or at 50270b) initiates 

the execution of the input routine. The input routine places the parameters 

Z 

n, q, 10 N, and s, and the elements oi the lower triangle oi thy matrix A 

on the drum and then initiates the execution of segment III, which runs 

only once per matrix A. The function of segment III is to set up segments 
I and II for a specific value of n, make optimizing storage allotments 
depending on n, and finally to form a suitable matrix of unit vectors from 
which the eigenvectors can be generated. For the ordinary case 
(MSJ-1 OFF) the unit vector matrix will be stored in consecutive locations 
with the first element at address 52000b. In the special case the first 
element of the unit matrix will be placed immediately following the last 
element of the lower triangle of A. Segment III concludes itself by block- 
transferring segment I and data into high speed storage and jumping to 
the initial line of segment I. 





' See Storage Allocation for drum storage addresses. 

'10) 

' See Storage Allocation for drum storage addresses. 
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Segment I proceeds through the lower triangle of the matrix 

being diagonalized taking the elements and the rows in sequence. For 

each pair of off -diagonal elements an orthogonal matrix R. , is gener- 

i l+l 

ated which, when applied alone with R. , . to D. , produces D. , , , in which 

csr to l+l i c l+l 

the selected pair of elements are zero. In the special mode enough high 
speed storage (HSS) is available to store both D. and the matrix T. of 
the sequence being transformed into the matrix of eigenvectors. Hence 
R may be applied directly to T. at this point and discarded. In the 
ordinary case HSS capacity is insufficient for the storage of T.. Hence, 
enough information must be preserved to reconstruct the sequence of 
R. and apply them to T. at a later time. This is accomplished by storing 
pairs cos & , sin£> sequentially on the drum beginning at address 65000b 
in a manner corresponding to the order in which the lower triangle was 
swept through. In order to minimize the number of random drum accesses 
a HSS region of length b = 01467b - —^ or *> = 01470b - ^-^ (which- 
ever is even) is set aside for temporary storage of the cos<0 , sin^ pairs. 
At the end of one sweep of {-nr - n)/2 transformations R. during which 
each pair of off-diagonal elements has been set to zero once, segment I 
block-transfers segment II into HSS and jumps control to the entrance line 
of segment II. 

In segment II an arithmetic check is made on whether the R. 
transformation matrices have been properly generated and applied. If 
this is the case the latest D. is dumped on the drum. If a discrepancy is 

detected the sweep can be repeated. In the ordinary mode of operation 

i 
^ segment II will regenerate the R. and bring the matrices T. up to date. 
c\j 1 1 

21 Convergence is then checked and if the process has been found to con- 
%-• 

JL verge, the MSS-0 stop at PAK=VAK=50000b occurs. Otherwise, segment 
i 

§ I is set up and the next sweep is initiated. 

o 
■— i 
r- 

£ The Constant Pool 

The main routine does not use the R-W constant pool. However, 
both the input and output routines do use it. It is stored at 5 06 15b and 
transferred to 00015b just prior to the execution of the input and output 
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routines. 

Storage Allocation (all addresses are octal) 

R-W constant pool during execution 



00015 - - 00026 

00027 - - 00040 

00250 - - 00704 

00027 - - 00455 + n] 
00620 - - 00617 + nj 
00000 - - 00307 



00310 - - 00310 +n +n - 1 



00310 + n +n 
"I" 



- - 01777 



00401 - - 00551 
40000 

40001 - - 40100 

40101 

40102 

40103 - - 40407 



of the input and outpu; routines. 
R-W temporary pool used during 
execution of the input routine. 
Execution addresses and temporary 
storage for the input routine. 
Execution addresses and temporary 
storage for the output routine. 
Execution addresses for segment I and 
segment II. 

Storage for lower triangle of matrix 
being diagonalized (eigenvalue data) 
during segment I. Storage for matrix 
being converted to eigenvectors (eigen- 
vector data) during ordinary mode 
operation of segment II. 
Storage for cos , sin<? pairs during 
ordinary mode of operation of both 
segments I and II. Storage for eigen- 
vector data during special mode of 
operation. 

Execution addresses for segment III. 
Storage for a jump to 50270, the entrance 
of the input routine. 
Not used. 

Storage for parameter n. 
Storage for parameter q. 
Storage for segment I. 
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40410 - - 47777 



CM 



I 

I 

O 

o 






5QQ00 

50001 

50002 

50003 - - 50257 

50260 and 50261 

50262 and 50263 

50264 



50265 - - 50267 
50270 - - 50273 



50274 
50373 
50552 

50553 
50615 
50627 
51015 
51072 
51241 
51250 
51257 
51263 



50372 
50551 



50614 
50626 
51014 
51071 
51240 
51247 
51256 
51262 
51654 



Dump region for eigenvalue data in 
ordinary mode. Dump region for both 
eigenvalue and eigenvector data in 
special mode. If n*£40, cells 42100 

thru 47777 are not used. 

Storage for a jump to 50262, the 

entrance of the output routine. 

2 
Storage for parameter ION. 

Storage for parameter s. 
Storage for segment II. 
Not used. 

Storage for the instructions which 
transfer the output routine into HS.S. 
Storage for the MSS-0 stop after the 
output routine, and a jump to 50270, 
the entrance to the input routine. 
Not used. 

Storage for the instructions which 
transfer the input routine and the R-W 
constant pool into HSS. 
Not used. 

Storage for segment III. 
Storage for the MSS-0 stop after con- 
vergence and a jump to 50000. 
Not used. 

Storage for R-W constant pool. 
Storage for CPO-2. 
Not used. 

Storage for output routine. 
Not used. 

Storage for input routine. 
Not used. 
Storage for CRI-2. 
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51655 - 


- 51657 


51660 - 


- 51750 


51751 - 


- 51777 


52000 - 


- 64777 



65000 - - 77777 



Not used. 

Storage for the scaling routine, an 

addition to segment III (see appendix). 

Not used. 

Not used in special mode. In ordinary 

mode, storage for eigenvector data. 

If 3£S3, cells 54644 thru 64777 are 

not used. 

Not used in special mode. In ordinary 

mode, storage for cos > sin^ pairs 

for one sweep. If n^38, cells 67576 

thru 77777 are not used. 
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APPENDIX 



Scaling 

Under Parameters it was stated that s should be chosen such 

that 

,33 . ii .s ^.34 



n 2"<nmax la.. 1-2 <2 

Actually, s should be chosen such that 
2) 2 33 <N(A) -2 S <2 34 , 

where N(A) = IN 2 = (£ .a?.) 1 / 2 is the norm of A. 

1 » J l J 



kk jj 



8 <2 35 (allk,j) 



If either 1) or 2) is satisfied, one can show that 

for all of the matrices D.. However, 1) is weaker than 2) in the sense 
that for many matrices, e. g. , Hilbert matrices and Leontieff matrices, 1) 
will yield an s smaller than 2). With only 35 bits to work with, it may 
often be important to scale the matrix from 1 to 3 or 4 places further 

left. Therefore, a scaling routine is included in the package which 

2 2s - 

computes N * 2 and determines (using the SF instruction) a k^O and 

an i = s + £ such that 

3) 2 66 <N E -2 25 <2 68 , 

which implies that 2) holds for s = s. Then the a., which have been 

s 1J 

scaled 2 (s having been chosen with 1)) are left- shifted k places so that 

the transformations are performed using the "best" scale factor i. As 

a matter of fact, all of the matrices mentioned under Accuracy and 

Machine Time were satisfactorily run using an s such that 



8 4) 2 68 <N 2 .2 E8 <2 70 , 



i.e., an s one greater than 2) would indicate should be chosen. This 
means that, for most matrices, 2) (or 3)) is too strict, and if one is 
really concerned about obtaining maximum accuracy, one may run a 
matrix once using 1). Then using the eigenvalues, \., thus obtained, 
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hand - c ompu te 



N(A) = (I \f) 1/2 



and use, 

5) 2-"*<N(A)2 B ^2 

which corresponds to 4), to choose s = s for a second, more accurate 
run. On such a second run, the scaling routine should use 4) instead 
of 3). To accomplish this, insert 00 00000 00043b into 51722b (replacing 
00 00000 00041b) after reading in the package. This will avoid the 
scaling routine error stop (see below). 

One more remark should be made in regard to scaling: up to, 
but not including, one more binary place may be utilized by scaling the 

a., by a power of ten, t, chosen so that right-hand inequality 5) is 

t 
"just barely" satisfied for some s. (If A has eigenvalues \., 10 A 

t 1 

will have eigenvalues 10 X.. ) 

Scaling Routine Error Stop 

If for any reason s has been chosen so large or so small that 
N ■ 2 ^2 or N • 2 <T2 , an MSS-0 error stop will occur at 
PAK=VAK=00062b in the scaling routine. In the first case a MA overflow 
fault may occur during the execution of segment III before entering the 
scaling routine. 

£! Bypassing the Input Routine 

•—I 

V If for any reason one does not wish to use the input routine, 

o one can in some fashion, e.g., using a RAWOOP- assembled data tape, 
£ load n, q, 10 N, and s, all scaled 2 , into 40101b, 40102b, 50001b, and 
>< 50002b, respectively, and a.., a.., a--, a-., a--, a,-, . . . , a ., a ,, . . . , 
a , all scaled 2 , into the (n +n)/2 consecutive cells starting with 40t410b. 
Then instead of starting at 40000b or 50270b, the entrance to the input 
routine, one should start at 50373b, the entrance to segment III of the 
main routine If one wishes to run a series of such matrices, one must 
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change (50264b) which ordinarily contains an MSS-0 and a jump to 50270b. 

Bypassing the Output Routine 

If for any reason one does not wish to use the output routine, 
the following information will be useful: when the process has converged 
and control has jumped to 50552b, which ordinarily contains the MSS-0 

stop with VAK=50000b, the entrance to the output routine, the 

s 
diagonalized matrix D is stored, scaled 2 , beginning at 40410b. In 

s s 

other words,, the original elements a..' 2 have been replaced by d..- 2 

(see Bypassing the Input Routine above), n, q, and 10 N are still scaled 

2 and are still located at 40101b, 40102b, and 50001b. However, s- 2 

has been replaced by s • 2 in 50002b. In the ordinary mode, the matrix 

T will be stored by rows with the first element in 52000b. In the special 

mode, the first (q-n) rows of T will be stored by rows with the first 

2 
element in (40410 + n +n) b. In either mode, all elements of T will be 

34 ~~2 

scaled 2 , and the columns of T, the eigenvectors r will be normalized 

to unit length. 
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Identification Tag: 



NUI-4 



Type: 

Assembly Routine Spec; 

Storage : 



Entrance and Exit: 



Machine Time: 



Subroutine 

SUB 51921 0891^ 

89 words total program storage 

9 words temporary pool used, 
addresses 27 b thru 37 "b 

The constant pool is used. 

RJ GIL01 GIL02 set up 

RJ GIL01 GIK>3 

MJ GIL04 



to get next point 



Prom derivative calcu- 
lation 



Approximately (9.7 + Qk, 6n) m.s. per time 
interval, where n equals the number of 
equations in the system. 



1— 1 

1 
o 

I 



a* 

r— I 






Coded by: 
Approved by: 



J. Carlson 
W. F. Bauer 



May, 1956 
May 10, 1956 
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Description 

The GiU Method Subroutine integrates a system of first order, differential 
equations using a step -by -step process. Using the values of the variables 
at a point and the coding for computing the derivative of each of the 
dependent variables at that point, the Gill Method Subroutine produces the 
coordinates for the next point of the solution each time it is entered. 

A special entrance sets up the subroutine for a particular system of 
equations, thus allowing the subroutine to solve concurrently several differ- 
ent systems in the same program. 

The independent variable is incremented within the subroutine itself. 

Notation 

The system of equations to be solved is 

— = f ± (x, y ± , J 2 , . . . , y Q ), (i = 1, 2, . . . , n) . 

n is the number of equations in the system. 

q. are intermediate values of the calculation (zero initially) 

x is the increment of the independent variable x 

Programming and Operating Instructions 

SNAP must be in E.S. 

Assign the Gill Method Subroutine to some arbitrary region, say GILOO. 
This region need not be located in the low ijaumbeEed half of E.S. 

In order to solve a given system, the following array of 
variables, derivatives, intermediate values, and parameters should be 
assigned a region, say DEQOO. Although the programmer will undoubtedly 
desire to have this region located in the low numbered half of E.S. , it 
co is not necessary for the operation of this subroutine. 

r— I 

•^ O 

' DEQOO n Fixed point form scaled 2 . 

i 

o DEQ01 Ax Floating point form 

i—i 

x 

a, 



DEQOO 


n 


DEQ01 


Ax 


DEQ02 


X 


DEQO-3 


&y ± 




dx 


DEQO^ 


y l 


DEQ05 


*1 
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DEQ06 


dy 2 
dx 


DEQ07 


y 2 


DEQ08 


^2 


addition, the coding 


for computing 



dy i 

■= — for all i, (i = 1, 2, . .. . , n) 

should be assigned a region, say DFQ00. This coding will use the values in 

dy • 
region DEQOO to compute all ^i as specified by the equations in the system 

ar~ 

and should place the results in the appropriate places in region DEQOO. It 
should then exit to the Gill Method Subroutine with an MJ 00000 GIL04 (see below) 

Assuming the Gill Method Subroutine is in region GIL00, the three entrances are 
GIL02, GIL03, and GIL0*K The exit is GIL01. 

The first entrance, GIL02, is used for setting up the Gill Method Subroutine 
only for the particular system to be solved. It is entered by an RJ command 
followed by a parameter word which specifies the location of the variables, 
and the location of the coding for calculating the derivatives: 

RJ GIL01 GIL02 
00 DEQOO DFQOO 

The second entrance, GIL03, is the entrance for producing a point of the 
solution. It is entered by an RJ command: RJ GIL01 GIL03* Entering using 
this command results in four passes through both the Gill Method Subroutine 
and the coding for computing the derivatives, and leaves in region DEQOO 
the new values of the variables, the derivatives at those values, and x 
advanced by Ax, ready for the next step. 

The third entrance, GILO**-, is the entrance from the coding for calculating 
the derivatives and is used on each of the four passes necessary for computing 
one point. As noted above, it is entered by an MJ command in the DFQOO region: 

MJ 00000 GIL04 

Mathematical Analysis 

^ Theory . "A Process for the Step-by-Step Integration of Differential Equations 

co in an Automatic Digital Computing Machine" by S. Gill, published in Cambridge 

t* Philosophical Society Proceedings, Vol. h'J , Part I, January 1951 > should be 

j consulted for a detailed analysis of the process on which the subroutine is 

I based. 



Suppose we know the point (X, Y 1 , Y p , . . . , Y ) on the curve defined by the 
system of equations 



dy l 
dx 



= V X < v y 2 » • • •» \' 
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dy 2 

— =f £ ( X> 7l , y 2 , . ._., y n ) 



■g- - f n (*, y r y 2 , . . ., y n ). 

The Gill Method is a process by which we can find the next point on the curve: 
i.e. the value of y_ , y 9 > • • • > 7 for x = X + h. 

The process can "be "better understood if the case where n = 1 is first considered. 

We have the point (X,Y) on the curve ^- - f(x,y), and we want to find y at 



X.+ h: i.e. we want k = by such that -ft- 

" dx 



= f(X + h, Y + k). 

11 X + h, Y + k 



We derive k "by making four approximations and averaging them in a particular 
way. 



First approximate the curve by a straight line through (X,Y) with the slope 

= f(X,Y), and find a first approximation to k: 
k = h*f(X,Y) 



^Jx^Y 



Then we travel a fraction m of the way along this line to the point (X+mh, Y+mk ) 
find f (X + mh, Y + mk ) . ° 



This gives us a new straight line through (X+mh, Y+mk ) with slope 
f (X + mh, Y + mk ) , and we find ° 



o 

k n = h f (X + mh, Y + mk. ) 
1 o 



We now use k and k to find a third point at which f is calculated: (X + nh, 



Y + [n-r] k + rk ) . 



k 



2 



- h f (X + nh, Y + [n-r] k + rk) 



o 

o Similarly, 

§' k = h-f(X + ph, Y + [p-s-t] k Q + sk + tk 

£ The weighted average of k , k.. , k , and k is the desired k = ( 6y: 

O J_ C* 3 " ^ 

6y = y(X + h)-y(X) = C Q k Q + c^ + c 2 k 2 + c,k^ 

where c +c.+c + c_=l. 
o 1 2 3 
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tor a system of equations, the same four steps given above are made for each 
equation and 

by. = c k, +c.k._ + c k. _ + c_k. _ where c + c. + c + c. = l. 
*i o io 1 ll 2 i2 3 i3 o 1 2 3 

Tbe above process is, for certain values of m, n, p, s, t, c , c^ , c , and c , 

tjbe Runge-Kutta process. The Gill process was derived, with application to 
Machine use in mind, by minimizing the number of storage cells required. For 
the Gill Method the above constants are 



m = 1/2, 
n = l/2, 
p = 1 , 



r = 1 - Jl/Z , 
s = - Vl/2, 
t = 1 + /Ij2, 



c = 1/6 

c ± =(1/3) (1 -/l72) 
c 2 =(1/3) (1 + -fl/2) 
c 3 - 1/6 



The Gill process further systematizes the calculation so as to increase the 
accuracy and simplify the coding. 

The Subroutine . As used in the Gill Method Subroutine, the process is as 
follows: 



It is assumed that the f.(x, y 10 j y?n> 



1st pass: 



Advance x by (l/2)h 



. , y ) and the y . are available . 
no 1 



k io - h ' f i (x > y 10> y 20' • 

r,_ =(l/2)k. - q. 

il K ' ' io ~lo 

q. n = q. + 3r._ -(l/2)k. 

H il ^10 J il v ' ' io 



' y no> 






I 
I 



% 

X 



2nd pass: 



'il *io il 

Calculate f ± (xtf^y^, . 



k il = h f i ( x ' y ll' y 21' * 



, y .) in programmer's own coding. 



' y nl ) 



r 12 -(l -Wi) fr u - ^1 

«i2 = «a + 3r i2 - (1 - yi7F)k i 

y i2 = y il + r i2 

Calculate f. (x, y n? > loo' • • •> 1 9) ^ n programmer's own coding. 
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3rd pass: 



^th pass: 



Advance x "by (l/2)h 

k. 2 =h.f. (x,y 12 ,y 22 , . . ., y n2 ) 



r. 3 « (1 + /I72) (k 12 - q.,) 



*i 3 = *i2 + 3r i3 ■ (1 + ^ k i2 



13 



y 12 + r i 3 



Calculate f i (x,y ,y 2 ~, 



• y -,) 
n3' 



■W 



k i3 = h-f i (x ' y 13' y 23' • 
r ±h = (1/6) (k. 3 - 2ct. 3 ) 

y i4 = y i 3 + r ik 

Calculate f. (x^. f7 9 h> • • ., y J in programmer's own coding. 

Errors . The paper by S. Gill mentioned previously includes a detailed analysis 
of, errors, "both truncation error and round -off error. 

The expression for the truncation error in by. is too complicated to give 
here, but its dominating term, the author states, is 



-120 



o 

j,k,l,m 



* y j * y k dy l dy m 



where y =x,f =1» 
''o ' o 



x=X 



and the truncation error in by will be approximately this when the second 

partial derivatives are all close to zero. It is probably more useful to say 

5 
merely that the truncation error is of the order of h . 

5 The standard deviation in y -(l/3)q. over one step from all rounding off 
i— i i i 

errors is "(where f is the quantity mentioned in the section on notation) 



i 

o 

o 
o 
o 



X 



1/6 



7/3 ^ 2' 2f +(1/I6)h 2 



<^f. 



&y : 



X 



1/2 



u, u = the value of 
one unit in the 
last digit of y. 
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Machine Checking 

The following system of two equations was solved using this routine: 



dx 


cos X 


^1 - 
dx 


-sin x 



The initial conditions, at x = 0, were 



y 1 = and y g = 1 



The interval, Ax, used was 2it/360 radians. At x = 36O the results 
were accurate to 8 decimal digits. 



CO 

i— t 

1 
a- 

1 

o 



X 
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6IL00 


01024 


D 




GIMOO 


51921 


SI MOO 


MS 


OOOOO 


GILOO 


GIM01 


MJ 


00000 


OOOOO 


GIM02 


MJ 


00000 


G$L49 


6IM03 


MJ 


00000 


GIL08 


6IM04 


RA 


GIL71 


00016 


GIM05 


EJ 


G1L69 


G1L73 


G1M66 


EJ 


GIL68 


GIL01 


GIM07 


MJ 


00000 


GIL18 


GIM08 


TP 


00016 


GIL71 


Gl M09 


tu 


G1L72 


GIL20 


GIM10 


TP 


00000 


GIL88 


6IM11 


TP 


OOOOO 


00024 


GIM12 


TP 


GIL88 


00002 


GIM13 


AD NO 


00024 


OOOOO 


GIM14 


TP 


00002 


GIL87 


61M15 


TP 


G1L75 


00031 


GIMI6 


AD MP 


00024 


00031 


GIM17 


TP 


00002 


OOOOO 


GIM18 


TV 


00000 


GIL70 


GIM19 


HP 


30003 


GIL21 


GJM20 


IP 


00000 


0002S 


GIM21 


RA 


GIL20 


GIL67 


GIM22 


TU 


GIL66 


GIL25 


GIM23 


TV 


GfL66 


GIL44 


GIM24 


RP 


30003 


GIL26 


61M25 


tP 


OOOOO 


00026 


G1M26 


TP 


00024 


00002 


Gl M27 


WHO 


00028 


OOOOO 


G1M28 


TP 


00002 


00029 


GIM29 


TP 


GIL88 


00002 


6IM30 


m>m 


00026 


00000 


GIM31 


ip 


00002 


00030 


- GIM32 


MPSU 


00023 


00029 


9 GlM33 


TP 


00002 


00029 


w GIM34 


AD NO 


00027 


OOOOO 


<> 6IM35 


TP 


00002 


00027 


GIM36 


TN 


00025 


00002 


§ StM37 


tiPikO 


00036 00028 


£ GIM38 


TP 


00002 


00030 


x GIM39 


TP 


GIL85 


00031 


°* GIM40 


TP 


00029 


00002 


GIM41 


DVAD 


00031 


00030 


GIM42 


TP 


00002 


00028 



02000 


00 


00000 


00000 


67221 


00 


OOOOO 


00000 


67221 


56 


00000 


02000 


67222 


45 


00000 


OOOOO 


67223 


45 


00000 


02061 


67224 


45 


OOOOO 


02010 


67225 


21 


02107 


0OO20 


67226 


43 


02105 


02111 


67227 


43 


02104 


02001 


67230 


45 


OOOOO 


02022 


67231 


11 


00020 


02107 


67232 


15 


02110 


02024 


67233 


11 


OOOOO 


02130 


67234 


11 


OOOOO 


00030 


67235 


11 


02130 


00002 


67236 


14 


04030 


00000 


67237 


11 


00002 


02127 


67240 


11 


02113 


00037 


67241 


14 


04030 


14637 


67242 


11 


0OOO2 


00000 


67243 


16 


OOOOO 


02106 


67244 


75 


36063 


62625 


6754$ 


11 


OOOOO 


0062? 


67246 


21 


02024 


02103 


67247 


15 


02102 


02031 


67250 


16 


02102 


02054 


67251 


75 


36663 62632 


6*252 


11 


00000 


00032 


67253 


11 


0O030 00O62 


67254 


14 14634 


66006 


67255 


11 


00002 


00035 


67256 


11 


02136 


00002 


67257 


14 


14032 


00000 


67260 


11 


00002 


00036 


67261 


14 


14027 


10035 


67262 


11 


00002 


00035 


67263 


14 


04033 


00006 


67264 


11 


66062 


60633 


67265 


13 


00031 


00002 


67266 


14 


14036 


04034 


67267 


11 


06002 


000 34 


67270 


11 


02125 


00037 


67271 


11 


00035 


00002 


67272 


14 


20037 


04034 


67273 


11 


00002 


00034 
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CO 



I 






X 

Du 



GIM43 
6IM44 
6IM45 
GIM46 
GIM47 
GIM48 
GIM49 
6IM50 
G1M51 
GIM52 
GIM53 
GXM54 
6IM55 
GIM56 
GIM57 
GIM58 
GIM59 
GIM60 
GIM61 
GIM62 
GIM63 
G1M64 
61M65 
GIM66 
GtM6* 
GIM68 
GiM69 
6iM*6 
6iH?i 

GIM72 
GIM73 
6XM74 
GIM75 
G1M76 
6IM77 
G1M78 
GIM79 
G1M86 
61M81 
61M82 
GIM83 
6IM84 
GIM85 
GIM86 
GIM87 
G*M&8 
START 



RP 30003 
TP 00026 
RA GIL25 
RA GIL44 
RS GIL70 
ZJ GJL24 
TP GtkOl 
LA A0000 
TU A0000 
TP 00000 
TV AOOOO 
TU AOOOO 
AT 00015 
TU AOOOO 
AT 00015 
TU A6006 
TU AOOOO 
LA AOOOO 
TV AOOOO 
TV AOOOO 
RA GIL66 
RA, 6fL01 
MJ 60000 
00 00006 
60 60003 
00 00006 
00 00000 

00 ooooo 
00 ooooo 

00 6IL75 
TP GIL87 
MJ OOOOO 
05 OOOOO 

01 OOOOO 
05 OOOOO 

02 92893 
02 92893 

02 92893 
01 70710 
01 70710 
01 70710 
01 66666 

03 33333 
5 OOOOO 
00 OOOOO 
00 OOOOO 



G1L45 
OOOOO 
61U7 
G1L69 
00016 
OOOOO 
AOOOO 
00015 
GIL52 
AOOOO 
G1L48 
GIL18 
AOOOO 
GIL10 
AOOOO 
GlLll 
G1L66 
00057 
6IL17 
GIL66 
00017 
00016 

StLGi 
ooooo 
Ooooo 

00005 
00003 

ooooo 
ooooo 
ooooo 

00002 
G1L17 
OOOOO 

ooooo 
ooooo 

21881 
21881 
21881 
67812 
67812 
67812 
66667 
33333 
OOOOO 
OOOOO 
OOOOO 



6 
B 
B 
B 
fi 
BRB 



•01 
00 
*01 
'01 
>01 



F 
F 
F 
F 
F 
'01 F 



00 
00 
00 
-01 
>01 
•01 



67274 


75 


30003 


672T5 


11 


00032 


67276 


21 


62631 


67277 


21 


02054 


67300 


23 


02106 


67301 


47 


02030 


67302 


11 


02661 


67303 


54 


20000 


67304 


15 


20000 


67305 


11 


OOOOO 


67306 


16 


20000 


67307 


15 


20000 


67310 


35 


00017 


67311 


15 


20000 


67312 


35 


00017 


67313 


15 


20000 


67314 


15 


20000 


67315 


54 


20000 


67316 


16 


20000 


67317 


16 


20000 


67320 


21 


02102 


67321 


ii 


62601 


6*322 


4£ 60660 


67323 


60 06066 


6*324 


66 


0006 % 


67325 


00 


OOOOO 


6*326 


00 


OOOOO 


6*32* 


00 


ooooo 


6*3^6 


00 


ooooo 


6*331 


00 


02ll3 


67332 


11 


02127 


6*333 


45 


ooooo 


67334 


20 


04000 


67335 


20 


14000 


67336 


20 


04000 


67337 


17 


74537 


67340 


17 


74537 


67341 


17 


74537 


67342 


20 


16650 


67343 


20 


16650 


67344 


20 


16650 


6*345 


17 


65252 


67346 


17 


75252 


67347 


20 


04000 


67350 


00 


OOOOO 


6*351 


00 


OOOOO 




45 


OOOOO 



02055 
OOOOO 

62163 

02105 
00020 
00006 
26006 
00017 
02064 
20000 
02060 
02022 
20000 
02012 
20000 
02013 
02102 
00071 
02021 
02102 
00621 
00026 
62601 
OOOO6 
00O06 
OOOO 5 
00063 
OOOOO 
00006 
OOOOO 
0O002 
02021 
OOOOO 
OOOOO 
OOOOO 
30314 
30314 
30314 
11714 
11714 
11714 
52525 
52525 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
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THE RAMO-WOOLDRIDGE CORPORATION 
Los Angeles k-5, California 

FLOATING POINT SINE -COSINE 

Specifications 



RW-144 

SIN -4 

Pg. 1 of 5 

5/15/56 



Identification Tag: 

Type: 

Assembly Routine Spec: 

Storage : 



Entrance and Exit: 



Machine Time 



SIN -4 

Subroutine 

SUB 51856 06510 

65 words total program storage 

h words temporary storage pool used, 
addresses 27 b through 32 b. 

The constant pool is used by this routine 

RJ SUB01 SUB02 for the sine 
RJ SUB01 SUB03 for the cosine 
3.9 bis average, ^.8 ms maximum 



"ST 



I 

0"> 

l 

o 
o 
o 



X 
CL, 



Coded by: 
Approved by: 



M. Perry 
W. Bauer 



May, 1956 
May 15, 1956 
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Description 

When supplied with an argument X in SWAP form, this routine will evaluate 
sin X or cos X (depending on which of the two entrances is used) using a 
Rand Polynomial Approximation, producing the answer in SNAP form. 

Programming Instructions 

This routine can be inserted into a program by CMP-0 by the use of a "SUB" 
card in the input deck. 

1 • ' Place the double length extension of X in the accumulator . 

X must be in radians and must be in SNAP form. 

2. Return jump to the subroutine . Assuming that the subroutine was assigned 
to region SUBOO for assembly, use either the instruction RJ SUB01 SUB02 
for the sine, or the instruction RJ SUB01 STJB03 for the cosine. 

3. At the time of exit from the subroutine, the double length extension of 
sin X (or cos X) in SNAP form will be in the accumulator . 

Error Analysis 

Sin X or cos X is computed to 26 bits of accuracy or to as many correct bits 
as there are in the Fractional portion of X, whichever is less. For 
X^2 2 ?, this routine substitutes zero for the argument. The alarm exit is 
not used. 

Mathematical Method 

1. Let y = (2/«)X, then sin X = sin(jt/2)(y) 

cos X = Bin(jt/2)(y + l) 

2. Divide y (or y + l) into an integral part R, and a fractional part S. 

3. R defines the quadrant into which X falls. Let R' be the two low order 
^ positions of R, since in binary notation, any other positions merely 

^ define a number of complete revolutions. 

1— 1 

J, k. R 1 is a number one less than the number of the quadrant into which X falls 
1 

°5« S defines the displacement (in a position direction) within the quadrant 
£ indicated by R ' . 

^ 6. Therefore, if R' * 00 Let Z = S first quadrant 

R' * 01 Let Z = (l-S) second quadrant 

R' = 10 Let Z = (-S) third quadrant 

R' = 11 Let Z = (l-S) fourth quadrant 
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7. Sin (or cos) X = sin(jt/2)Z. 



8. (l/z)sin(jt/2)z is approximated "by the Rand Polynomial Approximation 
Number 16, using argument z. 

9. If x^l/2, ; (2/jt)x, which is in floating form, is substituted for z 
before doing step 10. 

10. Multiply the approximation from step 8 by z giving the result, sin x 
(or cos x) . ' 

Range of Variable 

No alarm condition is recognized by this routine. However, as X approaches 
+ 2 2 ' the number of significant digits in Sine X (or Cosine X) approaches zero 
and X merely defines a number of revolutions and does not significantly 
designate an angle. 
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I 

I 

o 
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a* 



a. 



D 

D 

D 

D 

D 

DOSOO 

D0S01 

DOS02 

D0S03 

D0S04 

D0S05 

D0S06 

D0S07 

D0S08 

D0S09 

00S10 

D0S11 

D0S12 

D0S13 

D0S14 

D0S15 

D0S16 

DQS17 

D0S18 

D0S19 

D0S20 

D0S21 

D0S22 

00S23 

D0S24 

D0S25 

D0S26 

D0S27 

D0S28 

D0S29 

D0S30 

D0S31 

D0S32 

00S33 

00S34 

DOS35 



02S00 
00S00 
01S00 
DOSOO 
D1SOO 
RJ OOOOO 
MJ OOOOO 
RP 20002 
TP 00013 
TU 00S02 
LA AOOOO 
TM BOOOO 
LA AOOOO 
LQ AOOOO 
MP QOOOO 
TP BOOOO 
TP QOOOO 
RS 02S00 
SJ 00S14 
SA 01S07 
SJ 00S18 
AT 00SS3 
LA QOOOO 
TP BOOOO 
TP 02S04 
2J 00S36 
TJ 01S07 
CC QOOOO 
TV AOOOO 
LA QOOOO 
IJ 02S04 
TN QOOOO 
AT 01S06 
QT 01S06 
CC 02S00 
QJ 00&31 
RS 00S51 
QJ 00S33 
TP 01S06 
ST 02S01 
TP 02SO1 



00023 
01024 
01079 
51856 
51911 
OOOOO 
OOOOO 
00S04 
02S04 
00S51 
00008 
02S00 
00001 
00035 
01S05 
QOOOO 
02S01 
01S08 
00S21 
OOOOO 
00S16 
00S17 
00007 
QOOOO 
AOOOO 
00S26 
00S23 
AOOOO 
00S24 
OOOOO 
00S28 
AOOOO 
QOOOO 
02S01 
AOOOO 
00S32 
00015 
00S35 
AOOOO 
02S01 
QOOOO 







0O027 


00 


OOOOO 


00000 






02000 


00 


00000 


00000 






02067 


00 


OOOOO 


OOOOO 






67120 


00 


00000 


00000 






67207 


00 


00000 


00000 


ALAR* 


67120 


37 


00000 


OOOOO 


NORMAL EXIT 


67121 


45 


00000 


00000 


SIN 


ENTRY 


67122 


75 


20002 


02004 


COS 


ENTRY 


67123 


11 


00015 


00033 


SET 


FOR POS 


67124 


15 


02002 


02063 






67125 


54 


20000 


00010 


EXP 


PLUS 200 


67126 


12 


30000 


00027 






67127 


54 


20O00 


00001 






67130 


55 


20000 


00043 




69 


67131 


71 


10000 


02074 




34 


67132 


11 


30000 


10000 






67133 


11 


10000 


00030 


EXP 




67134 


23 


00027 


02077 






67135 


46 


02016 


02025 






67136 


32 


02076 


00000 






67137 


46 


02022 


02020 






67140 


35 


02065 


02021 






67141 


54 


10000 


00007 






67142 


11 


30000 


1OQ00 






67143 


11 


00033 


20000 






67144 


47 


02044 


02032 






67145 


42 


02076 


0202* 






67146 


27 


10000 


20000 






67147 


16 


20000 


02030 






67150 


54 


10000 


OOOOO 


S!N 




67151 


41 


00033 


02034 


COS 




67152 


13 


10000 


2O00O 






67153 


35 


02075 


10000 






67154 


51 


02075 


00030 






67155 


27 


00027 


2 6000 






6*156 


44 


02037 


02040 






67157 


23 


02063 


00011 






6*160 


44 


02041 


02043 






67161 


11 


020*5 


2O00O 






67142 


U 000$6 OOOSd 






67163 


11 


00030 


10000 
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00S36 
DOS 37 
DOS38 
D0S39 
DOS40 
DOS 41 
D0S42 
DQS43 
D0S44 
D0S45 
D0S46 
D0S47 
D0S48 
D0S49 
DOS50 
D0S51 
DOS52 
D0S53 
D0S54 
D1SOO 
D1S01 
D1S02 
D1S03 
D1S04 
D1305 
D1S06 
D1S07 
D1S08 
D1S09 
STAfcT 



MP QOOOO 
SA 01S06 
TP BQOOp 
P» OlSOl; 
RP 20003 
PM 01S02 
MP BOOOO 
TP B00010 
2J 00S45 
SF AOOOO 
LA AOOOO 
TP BOOOO 
RA 02S00 
SA 01S09 
CC AOOOO 
RP OOOOO 
TN AOOOO 
LA QOOOO 

00 OOOOO 

01 51484 
-4 67376 
07 96896 
-6 45963 
01 57079 
06 36619 
17 77777 
00 OOOOO 
00 OOOOO 
00 OOOOO 



QOOOO 










67164 


71 


10000 


10000 


00001 










67165 


32 


02075 


00001 


i02S02 






SQUARED 


34 


67166 


11 


30000 


00031 


01500 










67167 


24 


02070 


02067 


00S42 










67170 


75 


20003 


02052 


02S02 








69 


67171 


24 


02071 


00031 


02S01 








68 


67172 


71 


3 OOOO 


00030 


AOOOO 






FINAL MANT33 


67173 


11 


30000 


20000 


OOSOl 










67174 


47 


02055 


02001 


00S54 










67175 


74 


20000 


02066 


00027 










67176 


54 


20000 


00033 


QOOOO 










67177 


11 


30000 


10000 


00S54 










67200 


21 


00027 


02066 


00027 










67201 


32 


02100 


00033 


QOOOO 
OOSOl 










67202 
67203 


27 

75 


20000 

OOOOO 


10000 

02001 


AOOOO 










67204 


13 


20000 


20000 


00007 
OOOOO 










67205 
67266 


54 
00 


10000 
OOOOO' 


00007 
O0OO6 


19000 


-04 


38 


C9 




67207 


00 


02366 


57351 


55700 


-03 


36 


C7 




67210 


77 


54666 


31633 


79280 


*-02 


35 


C5 




67211 


02 


43150 


53663 


71106 


-01 


34 


C3 




67212 


65 


52420 


76451 


63185 




33 


Cl' 




67213 


14 


44176 


65102 


77225 


-01 


34 


2 OVER PI 




67214 


12 


13714 


06667 


77777 


B 




MASK 




67215 


17 


77777 


77777 


00034 


B 




28 




67216 


00 


OOOOO 


00034 


00200 


3 




128 




67217 


00 


OOOOO 


00200 


00072 


B 








67220 


00 
#5 


OOOOO 
OOOOO 


00072 
OOOOO 
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THE RAMO-WOOLDRIDGE CORPORATION 



LOS ANGELES 45, CALIFORNIA 



RW-145 
ATM-1 
Page 1 of 7 
May 1, 1956 



Identification Tag: 

Type: 

Assembly Routine Spec: 

Storage: 



Program Entrance: 
Program Exit: 
Alarm Exit: 
Drum Assignment: 
Machine Time 






i 

a* 
i 



Mode of Operation; 



£ Coded by: 

SJ Code Checked by: 

Machine Checked by: 

Approved by: 



Standard Atmosphere Calculation 
Specifications 

ATM-1 

Subroutine 

SUB 50776 13253 

79 instructions, addresses 
1KL00 thru 1KL11 
1KR00 thru 1KR33 
1KP00 thru 1KP32 

53 constants in program, addresses 
1KE00 thru 1KE36 
IKF00 thru 1KF15 

132 words total program storage. 7 words tempor- 
ary storage pool used, addresses 
OKT00 thru OKT06 

The constant pool is used by this routine. 

(See write-up. ) 

Address QKL01 

The alarm exit is used by this routine. OKL00 

Address 65030b thru 65233b 

1.34 ms FOR TEMPERATURE 

2. 52 ms FOR SPEED OF SOUND 

4, 40 ms FOR DENSITY 

5.48 ms FOR PRESSURE 

6. 76 ms FOR ALL 4 QUANTITIES 



Fixed Point 

M. Elmore 
L* Kimble 
L. Kimble 
W. F. Bauer 



August, 1955 
April, 1956 
April, 1956 
April, 1956 
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Description 



Given the geometric altitude Y in feet (O^J Y<£1,048, 576), this routine will 
compute the pressure, P, in pounds per square inch, density p, in slugs per 
cubic foot, speed of sound, V, in feet per second, or temperature, T, in degrees 
Rankine, or all four quantities at that altitude, depending on which one of five 
possible entrances is used. 

Each of these quantities is calculated from a formula derived by fitting 
curves to data from the ICAO Interim Standard Atmosphere Table. 



Programming Instructions 
.15 , 



1. Place Y 



in the accumulator. 



2. RJ to the subroutine. 

Assume that the subroutine has been assigned some arbitrary region, 0KL.00. 
Then the exit from the subroutine will be at 0KL01. Depending on the entrance 
used, the results are left in the accumulator or stored in cells 24, 25, 26, or 27 
of the temporary storage pool, as follows: 






i 

o 
i 

o 
o 
o 



X 

Q-, 



Enter With: 


P-2 3 ° 

lbs. per 
in. 5 


p.2 3 9 

slugs per 

ft. 3 


ft. per 
sec. 


T.2^ 1 
degrees 
Rankine 


Machine 

Time 

ms 


RJ 0KL01 0KL02 


Acc. 


25 


I 


27 


5.48 


RJ 0KL01 0KL03 


--. 


Acc. 








4.40 


RJ 0KL01 0KL04 







Acc. 


27 


• 
2.52 


RJ 0KL01 0KL05 










Acc. 


1.34 


RJ 0KL01 0KL06 


24 


25 


26 


27 


6.76 



Mathematical Analysis 

Temperature, T. 

The temperature as given by the ICAO Table is essentially a linear function 
of the altitude in six distinct regions. In region 1, from to 1 1 km, tempera- 
ture steadily decreases; in region 2, from 1 1 to about 25 km, it is constant; in 
region 3, from about 25 to 48 km, it increases steadily; in region 4, from about 
48 to about 53 km, it is constant again; in region 5, from about 53 km to about 77 
km, it again decreases; and in region 6, from about 77 km to the end of the 
range, it is constant. In each of these regions, the routine calculates Q-289 
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T = B_ + B, Y where Y is the geometric altitude, and B and B, are constants, 

o 1 ° o 1 

different for each of the six regions. 

Speed of sound, V 

The speed of sound is directly proportional to the square root of the tem- 
perature. In order to calculate the speed of sound, the routine calculates the 
temperature and then obtains a close approximation to its square root. 

Density, p 

The density is approximated by a function of the form 2 raised to the power 
(A ft + A.H + AH) where H is the geopotential altitude and A^, A , A ? are con- 
stants, different for each of the six regions described under temperature. 

Pressure, P 

The pressure is proportional to the product of the density times the tempera- 
ture; in order to find the pressure, the routine first finds the density and temperature 

For altitudes greater than 83 km, the pressure and density are set equal to 
zero, and the speed of sound and temperature are set to constant values of 886. 7 
and 363.4 respectively. 



Table of Constants: 



m 



i 

i 

o 
o 
o 



X 

cu 















Region 


A 


A l 


A 2 


B 
B 


Bi 


■ 


1 


-8.718341 


-4 
-.4152989x10 


-9 
-.1910522x10 


518.65 


-2 
-.3560071x10 


2 


-7.965339 


-4 
-.6934172x10 


ZERO 


390.2 


ZERO 


3 


-6.745764 


-4 
-.941444x10 


-9 
. 1203316x10 


256.039 


- 2 
. 162733x10 


4 


-10.210967 


-4 
.. 5315949x10 


ZERO 


508.79 


ZERO 


5 


-15.1932 


-5 
-.2626978x10 


-9 
-. 1260831x10 


838.663 


-2 
-. 188169x10 


6 


-4.806382 


-4 
-.7562816x10 


ZERO 


363.4 


ZERO 


Alarm 


Conditions 











If the subroutine is entered with a negative argument (Y< 0) it will enter 
the alarm routine ALR-1: "ATM-1" and the octal address of the R.J order with 
which ATM-1 was entered will print out on the flexowriter. 
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Machine Checking 

A driver routine was written to obtain values of pressure, density, speed 
of sound and temperature at 0, 1, 2, ... 91 km. in (geopotential) altitude and 
these were checked against values based on the ICAO Interim Standard Atmosphere 
Table. 

The greatest relative error in pressure for the lower altitudes is . 002. 
While the relative error for altitudes in regions 4, 5, and 6 increases sharply, 
the absolute error decreases and is less than . 00008. The greatest absolute 
error in density is very small for the entire range and is of the order of magni- 
tude of . 0000 0004. The greatest relative error in the speed of sound for the 
entire range is .0002. The greatest relative error in temperature is .0001. 






i 

o 

I 

o 
o 
a- 



x 

a, 
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D 




OKL00 


01024 




02000 


00 


OCOOO 


00000 




D 




IKLOO 


50776 




65030 


00 


00000 


occoo 




D 




OKROO 


01036 




02014 


00 


00000 


00000 




D 




1KR0O 


50788 




65044 


00 


00000 


00000 




D 




OKPOO 


010?0 




02056 


00 


00000 


ooooc 




D , 




1KP0C 


50822 




65106 


00 


00000 


00000 




D 




1KEOO 


50855 




65147 


00 


00000 


oooco 









1KF00 


50892 




65214 


00 


00000 


00000 




D 




0KE0O 


01103 




02117 


00 


00000 


ooooc 




D 




OKFOO 


01140 




02164 


00 


00000 


00000 




D 




OKTOO 


00023 




00027 


00 


00000 


00000 




1KL00 


37 


75701 


75702 B 


ALARM EXIT 


65030 


37 


75701 


75702 




1KL0I 


MJ 






EXIT 


65031 


45 


00000 


oooco 




1KL02 


MJ 




0KP23 


PRESSURE 


65032 


45 


00000 


02305 




1KL03 


MJ 




OKPOO 


DENSITY 


65033 


45 


00000 


02056 




1KL04 


MJ 




0KR23 


SPEED SOUND 


65034 


45 


00000 


02043 




1KL05 


MJ 


00000 


0KR17 


TEMPERATURE 


65035 


45 


00000 


02035 




1KL06 


RJ 


0KP32 


0KP24 


ALL 


65036 


37 


02116 


02106 




1KL07 


TP 


A 


0KT01 




65037 


11 


20000 


00030 




1KL08 


TP 


0KT04 


A 




65040 


11 


00033 


20000 




1KL09 


RJ 


0KR33 


0KR26 




65041 


37 


02055 


02046 




1KL10 


TP 


A, 


0KT03 




65042 


11 


20000 


00032 




1KL11 


MJ 




OKLOl 




65043 


45 


00000 


02001 




1KR00 


TP 


A 


0KT05 




65044 


11 


20OO0 


00034 




1KR01 


TJ 


00013 


0KR09 




65045 


42 


00015 


02025 




1KR02 


RP 


20006 


0KR12 




65046 


75 


20006 


02030 




1KR03 


TJ 


0KE01 


0KR04 




65047 


42 


02120 


02020 




1KR04 


QT 


00014 


0KR08 




65050 


51 


00016 


02024 




1KR05 


MP 


0KF01 


0KR08 




65051 


71 


02165 


02024 




1KR06 


AT 


0KR11 


0KR08 




65052 


35 


02027 


02024 




1KR07 


RP 


30005 






65053 


75 


30005 


00000 




1KR08 


TP 


0KE07 


OKTOO 




65054 


11 


02126 


00027 




1KR09 


11 


OKFOlO 


75756 BRB 


ALARM 


65055 


11 


02164 


75756 




IKR10 


MJ 




OKLOO 




65056 


45 


00000 


02000 


to 


1KR11 


TP 


0KE07 


OKTOO 




65057 


11 


02126 


00027 


«— 1 


1KR12 


TV 


0KR07 


0KR15 


ALTITUDE 


65060 


16 


02023 


02033 


•W 
1 


1KR13 


TP 


0KE10 


0KT03 


OVER 83KM 


65061 


n 


02131 


00032 


i 


1KR14 


TP 


0KE11 


0KT04 


PUT IN 


65062 


11 


02132 


00033 


o 
o 


1KR15 


RP 


10003 




CONSTANT 


65063 


75 


10003 


00000 


i-H 


1KR16 


T» 


00013 


OKTOO 


VALUES 


65064 


11 


00015 


00027 


t- 


IKR17 


TV 


0KL11 


0KR22 


TMPRTR ENTRY 


65065 


16 


02013 


02042 


cu 


1KR18 


RJ 


0KR07 


OKROO 




65066 


37 


02023 


02014 




1KR19 


SP 


0KT03 


00034 




65067 


31 


00032 


00042 




1KR20 


MM 


0KT05 


OKT04 




65070 


25 


00034 


00033 




1KR21 


TP 


BOOOO 


AOOOO 




65071 


11 


30000 


20000 




1KR22 


MJ 








65072 


45 


00000 


00000 




1KR23 


TV 


0KL11 


0KR33 


SOUND ENTRY 


65073 


16 


02013 


02055 
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in 



« 

o 
o 



a, 



1KR24 
IKR25 
IKR26 
1KR27 
IKR28 
IKR29 
1KR30 
1KR31 
1KR32 
1KR33 
1KP00 
1KP01 
1KP02 
1KP03 
1KP04 
1KP05 
1KP06 
1KP07 
1KP08 
1KP09 
1KP10 
1ICP11 
1KP12 
1KP13 
1KP14 
1KP15 
IKP16 
1KP17 
1KP18 
1KP19 
1KP20 
1KP21 
1KP22 
1KP23 
1KP24 
1KP25 
1KP26 
1KP27 
1KP28 
1KP29 
IKP30 
1KP31 
1KP32 
1KEOO 
1KE01 
1KE02 
1KE03 
1KE04 
1KE05 



RJ 
~P 
AT 
SN 
OV 
AT 
LA 
MM 
TP 
MJ 

TV 

RJ 



TP 
SP 

DV 
SP 
PM 
PM 
TN 
QT 
QT 
SN 
AT 
LG 
SP 
RP 
PM 
LA 
TP 
MJ 
LA 
TV 
RJ 
TP 
RJ 
TP 
MP 
PM 
LA 
TP 
MJ 



OKR22 
AOOOO 
0KF05 
0KF04- 
0KT03 
0KF02 
AOOOO 
0KT03 
BOOOO 



0KL11 
0KR07 
SP 0KF06 
PM 0KF07 
BOOOO 
0KTO5 
QOOOO 
0KT02 
0KTO1 
OKTOO 
BOOOO 
0KF09 
0KF08 
QOOOO 
0KP22 
0KT06 
OK^IO 
20004 
OKFll 
A 0000 
AOOOC 



AOOOO 
0KL11 
0KP21 
AOOOO 
0KR22 
AOOOO 
0KTO4 
00013 
AOOOO 
BOOOO 



0KR18 

0KT04 
0KT03 
00027 
AOOOO 
ACOOO 
00034 
0KF03 
AOOOO 

0KP21 
OKROO 
00035 
OKT05 
QOOOO 
00033 
0KT06 
00036 
0KT06 
0KT06 
QOOOO 
0KT06 
QOOOO 
00047 
0KP19 
00010 
00036 
0KP19 
0KT06 

ooooo 

AOOOC 

00051 
0KP32 
0KP01 
0KT02 
0KR19 
0KT04 
0KT02 
0KF15 
00011 
AOOOO 



03 60891 67000 4 15 

08 24472 60000 4 15 

01 55380 10000 5 15 

01 75261 90000 5 15 

02 52624 OOOOO 5 15 









ATM-1 








Pa 


ige 6 of 








5- 


1-56 




6 5074 


O "7 


02042 


Q20'i6 




65075 


11 


20000 


00033 




65076 


35 


02171 


00032 




65077 


33 


0217C 


00033 




65100 


73 


00032 


20000 




65101 


35 


02166 


20000 




65102 


54 


20000 


00042 




65103 


25 


00032 


02167 




65104 


11 


30000 


20000 




65105 


45 


OOOOO 


OOOOO 




65106 


16 


02013 


02103 




65107 


37 


02023 


2 1 *- 




65110 


31 


02172 


000 '- 3 




65111 


24 


02173 


000 3 4 




65112 


11 


30000 


1000C 




65113 


31 


00034 


000^1 


H SCALED 15 


65114 


73 


10000 


0003^ 


A2 


65115 


31 


00031 


0004 4 




65116 


24 


00030 


00035 




65117 


24 


00027 


00033 




65120 


13 


30000 


1000C 


MANTISSA 


65121 


51 


02175 


00035 


CHARACTERSTC 


65122 


51 


02174 


10000 




65123 


33 


10000 


00057 




65124 


35 


02104 


021C1 




65125 


55 


00035 


00012 




65126 


31 


02176 


00044 


EXPONENTIAL 


65127 


75 


20004 


02101 


POLYNOMIAL 


65130 


24 


02177 


00035 




65131 


54 


20000 


OOOOO 




65132 


11 


20000 


20000 




65133 


45 


OOOOO 


OOOOO 




65134 


54 


20000 


0006 3 


PRES ENTRY 


65135 


16 


02013 


02116 


DENS 


65136 


37 


02103 


02057 




65137 


11 


20000 


00031 


TEMP 


65140 


37 


02042 


02037 




65141 


11 


20000 


000 33 




65142 


71 


00033 


00031 




65143 


24 


00015 


02203 




651*4 


54 


20000 


00013 




65145 


11 


30000 


20000 




65146 


45 


OOOOO 


OOOOO 




65147 


00 


OOOOO 


OOOOO 




65150 


01 


06371 


1254C 




65151 


02 


41017 


20510 




65152 


04 


57364 


06315 




65153 


05 


26235 


71463 




65154 


07 


55320 


OOOOO 
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i 

o 
o 



a 



1KE06 


02 


73000 


ooooo 


5 


15 






65155 


10 


31070 


oocoo 


1KE07 


-A 


80638 


?aooo 




24 


A60 




65156 


77 


73143 


10362 


IK EOS 


-7 


5&281 


60000 


- 5 


44 


A61 




65157 


76 


60545 


3*152 


1KE09 












A62 


ZERO 


65160 


00 


OOOOO 


OOOOO 


1KE10 


03 


63400 


ooooo 


2 


21 


B60 




65161 


00 


553S1 


46315 


1KE11 












861 


ZERO 


65162 


00 $0000 


OOOOO 


1KE12 


~ « 


51932 


10000 


1 


24 


A5 




65163 


77 


60635 04711 


1KE13 


-2 


62697 


80000 


»» 6 


44 


A51 




65164 


77 


7S175 


51961 


1KE14 


-1 


26083 


ioooo 


-10 


64 


A52 




65165 


75 


65275 


41451 


1KE15 


08 


38663 


ooooo 


z 


21 


B5G 




65166 


01 


50652 


33514 


1KE16 


-1 


88169 00000 


- 3 


41 


B51 




65167 


74 


31271 


72771 


1KE17 


~1 


02109 


67000 


1 


24 


A4 P 




65170 


77 


65623 


77020 


1KE18 


-5 


31594 


90000 


- 5 


44 


A41 




65171 


77 


1020^ 


15651 


1KE19 












A42 


ZERO 


65172 


00 


OOOOO 


OOOOO 


1KE20 


05 


08790 


ooooo 


2 


21 


B40 




65173 


00 


77462 


43656 


1KE21 












B41 


ZERO 


65174 


00 


OOOOO 


OOOOO 


1KE22 


-6 


74576 


40000 




24 


A3 




65175 


77 


71202 


12633 


1KE23 


-9 


41444 


ooooo 


«* 5 


44 


A31 




65176 


76 


35220 


4702? 


1KE24 


01 


20331 


60000 


-10 


64 


A32 




65177 


02 


04234 


52625 


1KE25 


02 


56039 


ooooo 


z 


21 


B30 




65200 


00 


40002 


37575 


1KE26 


01 


62733 


ooooo 


- 3 


41 


B31 




652031 


03 


25230 


21102 


1KE27 


-7 


96533 


90000 




24 


A2 




65202 


77 


70021 


57612 


1KE28 


-6 


93417 


20000 


- 5 


44 


A21 




65203 


76 


67224 


34510 


1KE29 












A22 


ZERO 


65204 


00 


OOOOO 


OOOOO 


1KE30 


03 


90200 


ooooo 


2 


21 


B20 




65205 


00 


60614 


63146 


1KE31 












B21 


ZERO 


65206 


00 


OOOOO 


OOOOO 


1KE32 


-8 


71834 


10000 




24 


Al 




65207 


77 


67220 


1531* 


1KE33 


-4 


15298 


90000 


- 5 


44 


All 




65210 


77 


24347 


63660 


1KE34 


-1 


91052 


20000 


-10 


64 


A12 




65211 


74 


55737 


13041 


1KE35 


05 


18650 


ooooo 


2 


21 


BIO 




65212 


01 


00651 


46315 


1KE36 


-3 


56007 


10000 


- 3 


41 


Bll 




65213 


70 


55277 


53367 


1KF00 


30 


01075 


65204 


B 




ALARM TAG 


65214 


30 


01075 


652C4 


1KF01 


00 


00005 


ooooo 


B 








65215 


00 


00005 


OOOOO 


1KF02 


01 


01181 


28000 


3 


21 


SOUND 




65216 


01 


76364 


01165 


1KF03 


05 


95687 


ooooo 


— 1 


35 


CON 




65217 


23 


03757 


0567^ 


1KF04 


04 


23184 


75900 


5 


15 


StA 


65220 


14 


72420 


60447 


1KF05 


04 


18200 


ooooo 


2 


21 




NTS 


65221 


00 


64214 


63146 


1KF06 


04 


78490 


ooooo 


•m Q 


53 


RE RECIP 


65222 


00 


31540 


$0405 


IKF07 


01 


00000 


ooooo 




32 






65223 


04 


OOOOO 


OQOOO 


1KF08 


7? 


76000 


ooooo 


B 








65224 


77 


76000 


OOOOO 


1KF09 


00 


01777 


77777 


B 








65225 


00 


01777 


77777 


1KF10 


05 


95618 


ooooo 


- 3 


24 


E4 EXPONEN 


65226 


00 


00003 


03130 


1KF11 


-5 


15546 


70000 


- 2 


24 


E3 TIAL 


65227 


77 


77745 


46517 


1KF12 


02 


38628 


42000 


- 1 


24 


E2 POLYNOM 


65230 


00 


00172 


13301 


1KF13 


-6 


93007 


28000 


- 1 


24 


El IAL 




65231 


77 


77235 


13422 


1KF14 


01 


00000 


OOOOO 




24 


EO CONSTANTS 


65232 


00 


01000 


OOOOO 


1KF15 


01 


19200 


OOOOO 


1 


29 


R 




65233 


05 


75341 


21727 
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THE RAMO-WOOLDRIDGE CORPORATION 
Los Angeles 4 5 } California 



MANUAL INSPECTION AND INSERTION 



RW-146 

MII-0 

Pg. 1 of 2 

revised 5/1/56 



Designation: 

Type: 

Special Storage 

Entrances: 

Exit: 



MII-0 

Service Routine 

The constant and temporary storage pools are 
not used by this program. 

Address 40002b for inspection, address 40003b 
for insertion. 

Manual stop. 



-* Coded by: 



i 

o 
© 



X 

CL. 



Machine Checked by: 



£ Approved by: 



Walter F. Bauer 
Merritt Elmore 
Wesley C. Dixon 



March 28, 1955 
April 1, 1955 
April 8, 1955 
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MII-0 

Pg. 2 of 2 

revised 5/1/56 



DESCRIPTION 

The routine is designed to facilitate manual data read -in and read -out by 
the machine operator at the control console. With the routine, for example, 
only four steps are necessary to insert a word rather than approximately 
eleven without it. -The routine also facilitates the inspection (or inser- 
tion) of a succession of words. The information is entered into or read 
out of the machine by means of the Q -register. 

OPERATING INSTRUCTIONS 

The following steps should be followed to inspect program data, assuming 
the computer halted at end of main pulse 6: 

1. Set PAK to - 40002. 

2. Set address n of word to be inspected into right 15 bits of 
accumulator. 

3» Start computer. 

The computer will halt with the word displayed in the Q-register. Upon 
restarting, the word in address n + 1 will be displayed in the Q -register, 
thus successive starts will cause words in successive storage locations 
to be displayed. To perform step 2, the computer must be in the ''test" 
mode . 

The following steps are taken to enter a word into the memory, assuming 
the computer halted at the end of main pulse 6: 

1. Set PAK %o 40003. 

2. Set address n of word to be inserted into right 15 "bits of 
accumulator. 

3. Enter word to be inserted into quotient register. 
h. Start computer. 

The computer will halt after inserting the word into address n, Another 
word, entered into the Q-register, will be inserted into address n + 1 
_ upon starting the computer. That is, upon repeating steps 3 and k, 
;§ words are enteric) -vnto successive memory locations. To perform steps 
^ 2 and 3, the computer must be in the "test" mode. 



SPECIAL WARNING 



This routine does not retain the information which was in the accumulator 

^ or quotient register upon its initiation. 
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THE RAMO-WOOLDRIDGE CORPORATION 
Los Angeles = 4-5, California 



RW-147 

SIN-0 

Pg. 1 of 4 

Revised May 1, 1956 



CENTRAL EXCHANGE SINE -COSINE ROUTINE 






I 

o 
o 



Cu 



Identification Tag: 

Type: 

Assembly Routine Specification: 

Storage : 



Drum Assignment: 
Entrance and Exit: 

Alarm: 

Average Machine Time: 

Maximum Machine Time: 

Mode of Operation: 



Coded by: 
Code Checked by: 
Machine Checked by: 
Approved by: 



Specifications 

SIN-0 

Subroutine 

sub 49368 04008 

30 instructions 

10 constants in program 

No words of temporary storage used in program 

kO words of total program storage 

2 -words temporary storage pool used, 
addresses 00027b thru 00030b 

62230b thru 6227Tb 

RJ SUB01 SUB03 for the Sine 
RJ SUB01 SUB02 for the Cosine 

Tbe alarm exit is not used 

3.63 milliseconds for Sine, 3.67 milliseconds 
for Cosine 

4.38 milliseconds for Sine, k.k2 milliseconds 
for Cosine 

Fixed point 



A. E. Roberts, Jr. 
Merritt Elmore 
Merritt El more 
Wesley C. Dixon 



December, 195^ 
April 10,-1955 
April 14, 1955 
May 5, 1955 



0^007 



RW-147 

SIN-0 
Pg. 2 of k 
Revised May 1, 1956 

Description 

When supplied with an argument X (-2 3 < X < 2^) scaled by 2 33 (ie. X'2 33 ) it 

will compute either 2 33 * sin (<X) or 2 33, cos (jcX) depending on which of the 

2 2 

two possible entrances is used. The Tchebycheff polynomial expansion is used. 

-32 
The absolute value of the error is less than 2 . 



Programming Instructions 

Assume that the subroutine is stored at SUBOO and that X is the angle (in quad- 
rants) whose sine or cosine is desired. 

1. Place X*2~^ in the accumulator 

2. Execute RJ SIXB01 SUB03 for the sine, or 

RJ SUB01 SUB02 for the cosine. 



Control will be returned to the cell immediately following the return jump with 

2 



"3*5 Q"3 

either 2 JJ « sin jcX or 2 JJ * cos icX left in the accumulator. 



Mathematical Method 

Method used, sin (<X) . 

2 

Summary . X is transformed into two parts: A two bit integer q. designating the 

quadrant in which the angle lies; and a 33 bit fractional part y which is used 

^ in the polynomial approximation for sin (jcv) . Cos (icy) is obtained from 

C JT 2 

0- sin (ay) using the half angle formula. Finally, sin (*X) = + cos (*y) according 

o l* 2 2 

o to the quadrant . 

X 

a, 
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SIN-0 

Pg. 3 of li- 
re vised 5/l/56 
In Detail 

1. Make the argument positive by adding 2 s8 ( since |x| «^.2 38 ). 

X+-2 38 = u, 0^.u 

2. The new argument u has an integral part and a fractional part. Throw 
away all the bits of the integral part except the two immediately to 
the left of the binary point (since the rest only add integral multi- 
plies of 2 IF to the angle), 

3. Let q = two bit integral part of u. Thus, q is one less than the 
number of the quadrant in which the angle lies. 

k. If X* is the fractional part of u, then 

a) y = if for q = 01 or 11, and 

b) y - X*-l for q = (X) or 10, because sin (TTX) = cos 

~S 

/5 



ir(x-l) 
^ 



JZ> 21fl 



5. sin pry) = 37 ^Lj 2ifl y / , |y|<Cl from above f 
"I - ( i=l 

NOTEi This is derived from the Tshebycheff expression 

sin (jn) =2^7 (-D J WA) T T Wl- 
~T~~ k=l 2k-l L S^" 1 J 

6. cos (fly) = 1-2 sin2 (177-) 

7. sin ftfX) - cos (yy) , q = 00 or 01 
sin ftfX) = -cos (fry) , q = 10 or 11 

b- Method used, cos (7pC). 

2 5— 



1 



X-ld replaces X and sin (|fX) is formed as above. 



Machine Checking 

A driver routine was used to take the sine and cosine of 68 values of (TTX) 

and the results were checked against values obtained from the National Bureau 
of Standards Table of Sines and Cosines, 
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Pg. k of k 
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i 

o 

© 
o 



D 

D 

82S00 

02SO1 

82 SO 2 

82S03 

82504 

82S05 

82S06 

82S07 

82S08 

82S09 

82S10 

82511 

82512 

82513 

82S14 

82515 

82S16 

82S17 

82S18 

82S19 

82S20 

82S21 

82S22 

82S23 

82524 

82S25 

82S26 

82S27 

82S28 

82529 

82530 

82S31 

82532 

82S33 

82S34 

82535 

82536 

82537 

82538 

82S39 



82S00 
81S00 
FS 00000 
MJ 00000 
AT 81539 
LA A00C?0 
AT 00016 
QJ 8 1506 
TP 81529 
MJ 00000 
TP 81526 
QT 81S32 
QJ 81S12 
SS 81533 
MP A0O00 
SA 81533 

TN AOOOO 
TU 81531 

TP 81S34 
MP Q0000 
SA 81533 
AT 

fcA 81S19 
TJ 81S30 
MP QOOOO 
SA 81S33 
MP AOOOO 
SS 81539 
TN AOOOO 
ST 81S39 

00 00000 
MJ 00000 
AT 81539 
FS 81S35 
37 77777 
40 00000 
02 71415 
08 04213 

01 36910 

01 10975 

02 69860 
01 OOOOO 



49368 

01024 

OOOOO 

OOOOO 

AOOOO 

00001 

QOOOO 

81^08 

81S28 

81S09 

81S28 

AOOOO 

81S11 

OOOOO 

QOOOO 

00036 

00023 

81S19 

QOOOO 

00023 

00036 



00015 

81517 

QOOOO 

00036 

00023 

00038 

AOOOO 

AOOOO 

OOOOO 

81501 

QOOOO 

OOOOO 

77774 B 

OOOOO B 

OOOOO 

96000 

774*6 

78641 

75408 
OOOOO 



6 
7 
9 

16 

10 



NO ALARM XI T 
NORMAL EXIT 
COSINE ENTRY 
SINE ENTRY 
QAD NUM IN Q 
IS QUAD 1 2 
NO SET NEG 
VALUE FUNC 
YES POS FUNC 
X STAR IN A 
IS QUAD 2 4 
NO SUB ONE 
Y SQUARE 
ROUND SCALE 
STORE 
S£T LOOP 
A4 TO 
L CALC 
PPLY 
6 MOM 2. A L 
P UP 1N6EX 
TEST END 
CALCULATE 

NEG COS OF 
ONE HALF 
PI Y 

POS OR NEG 
JUMP TO EXIT 

LOOP U ADDRS 
MASK- 
ROUND 6FF 36 
A4 
A3 
A2 
Ai 
A 

33 ONE 



62230 
02000 
62230 
62231 
62232 
62233 
62234 
62235 
62236 
62237 
62240 
62241 
62242 
62243 
62244 
62245 
62246 
62247 
62250 
62251 
62252 
62253 
62254 
62255 
62256 
62257 
62260 
62261 
62262 
62263 
62264 
62265 
62266 
&2267 
62275 
62271 
62272 
62273 
62274 
622*5 
62276 
62277 



00 
00 
57 
45 
35 
54 
35 
44 
il 
45 
11 
51 
44 
34 
71 
52 
13 
15 
11 
71 
32 
35 
21 
42 
71 
32 
71 
34 
13 
36 
00 
45 
35 
57 
37 
46 
00 
00 
51 
12 

?1 
10 



OOOOO 
OOOOO 
OOOOO 
OOOOO 
02047 
20OOO 
00020 
02006 
62035 
OOOOO 
02032 
02040 
02014 
02G41 
2600$ 
02041 
2000C 
02037 
02042 
10000 
02O41 

odooo 

62023 
02036 
10000 
02041 

20000 
02047 
20000 
02047 
OOOOO 
OOOOO 
0204? 
62643 
77777 
OOOOO 
66122 
64626 
21465 
2^357 
10375 
OOOOO 



OOOOO 
OOOOO 
OOOOO 
OOOOO 
20000 
0000 X 
10000 
0201G 
62034 
02011 
02634 
2000£ 
02613 
OOOOO 
10000 
00044 
00027 
02023 
10000 
00027 
00044 



006 U 
02021 
10000 
00044 
00027 
00046 
2QO00 
20000 
00006 
02001 
10000 
60000 
77774 
06000 
65646 
21624 
6644$ 
16221 
52426 
00006 
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RW-148 

SIN-1 
1 of \ 
Revised May 1, 1956 



Specifications 



Identification Tag: 

Type: 

Assembly Routine Specification: 

Storage : 



Entrance and Exit 



Alarm: 



Drum Assignment: 



SIN-1 

Subroutine 

SUB 49420 04210 

32 instructions, 

10 constants in program, 

42 total program storage. 

2 words of temporary storage pool used, 
addresses 27b and 30b 

RJ 00K01 00K03 for the sine, or 
RJ 00K01 00K02 for the cosine. 

The alarm exit is not used but a 
divide fault may occur. 

62314b thru 62365b 



Average Machine Time; 
Maximum Machine Time: 



2.6 milliseconds 

4.0 milliseconds (estimated) 



Mode of Operation: 



Fixed point 



co 

"ST 



I 

O 
1 

o 
o 
o^ 



X! 



Coded by: 
Code Checked by: 
Machine Checked by: 
Approved by: 



M. Elmore 
R. Beach 
M. Elmore 
W. Dixon 



March 21, 1955 
March 23, 1955 
April 26, 1955 
May 11, 1955 
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Description 

When supplied with an argument x(-2if«2 32 :£x^.2ff ; 2 32 ) scaled by 2 s2 (i.e. 
x-2 32 ) this routine will compute either 2 32 »sln x or 2 s2 • cos x, depend- 
ing on which of two entrances is used. Computation is "by means of the Band 
approximation using the repeat polynomial multiply instruction. (Hence, 
SIN-1 should not be used on H.03 computers not equipped with the polynomial 
multiply) . 

The absolute error is less than 2~ 27 . 

Programming and Operating Instructions 

1. Place x'2 32 in A . 

2. RJ to the subroutine 

If the subroutine has been assigned some arbitrary region, say 00K00, 
then the address of the sine entrance is 00K03, the address of the co- 
sine entrance is 00K02, and the address of the exit is OOK01. One 
> should, therefore, use one of two RJ instructions to enter the routine. 

RJ 00K01 00K03 to obtain the sine, or 
RJ 00K01 00K02 to obtain the cosine. 

3. At the time of exit from the routine either 2 s2 * sin x or 2 s2 * cos x will 
be left in A. 

k. A divide fault occurs if x exceeds the range (see note in Mathematical 
Analysis section). 

Mathematical Analysis 

Method used, sin x. 

Summary . First x is reduced to a positive angle less than 277$ second it 

is transformed into an angle with an absolute value less than or 
equal tonjfe, and the sign is assigned according to the quadrant 
in which the angle lies. Calculation then proceeds using the 
Rand approximation. 

In Detail 



o 1. (a) If x is positive and greater than 2% 2Y±s subtracted from x 

5 until x is negative, when 27f is added back in. 

1—1 

x (b) If x is negative, 2Tfis added to x until x is positive. 

cu 

NOTE* The number of times that x and j^ 2^ are added is tallied with 

a Q-jump. If positive x does not become negative or negative x 
does not become positive after six subtractions or additions 
respectively, x is divided by 27T and the remainder becomes x. 

Because of this division, if |x|> 2rf (2 32 -f6), a divide fault 
will result. 
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2. If x is greater than or equal to «/2, jc is subtracted until x is less than 
*/2. If this takes only one subtraction, then the negative of the newly 
obtained x is used for x. If it takes two subtractions 3 no further change 
of sign is made. 

5 
\= — y 2i-l 

3. sin x ■ 2. . a o- i x 3 * 4s. x <£ < -from above. 

i=l d± ~ L 2 2 J 

This polynomial is related to the Rand Sheet No. 16 polynomial by the 
following relation: 

ft)' 






Method used, cos x . 

x is replaced by x + it/2 if x is negative or by x-3*/2 if x is positive, 
and sin x is found as above. 

Machine Checking 

The sin x and cos x of 3^- values of x were found and the results checked 
against values for the same angles found using the SIN-0 routine. The 
greate st error was 45 * 2 "^ ( approximately . 71 * 2 " ) . 
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D 
D 

82S00 
82S01 
82S02 
82 SO 3 
82504 
62S05 
82506 
82 SO 7 
82508 
82509 
82S10 
82S11 
82S12 
82S13 
82S14 
82515 
82S16 
82S17 
82S18 
82S19 
82S20 
82S21 
82S22 
82S23 
82S24 
82S25 
82S26 
82527 
82S28 
82S29 
82S30 
82S31 
82S32 
~82S33 
3 82534 
^82335 
T 82536 
882S37 
&82S38 
^82539 
282540 
82S41 



82S00 
81S00 
FS 00000 
Hj 00000 
SJ 81S09 
TP 81S41 
TJ 81S32 
QJ 81506 
OV 81532 
SJ 8 IS 14 
ST 81532 
AT 81533 
Kj 00000 
ST 81S32 
SJ 81514 
QJ 81506 
AT 81S32 
5 J 81513 
TN A 
MJ 

TJ 81533 
ST 81534 
TJ 81S33 
ST 81S34 
TP A 

MP 23 
SA 81S40 
TP A 

5P 81S35 
RP 2 4 
PM 81S36 
PM 13 
TP B 
MJ 
06 28318 

01 57679 
03 14159 

02 60188 
-1 98674 

08 33302 
-1 66666 

09 99999 
01 

00 70000 



49420 

01024 

00000 

00000 

81508 

QOOOG 

81S15 

81S11 

QOOOG 

81518 

AOOOO 

AOOOO 

81503 

AOOOO 

81505 

81S14 

AOOOO 

81518 

A 

81522 

81522 

A 

81S16 

A 

23 
Q 

41 

24 

35 
81529 

24 

23 
A 

aisdi 

53072 
63268 
26536 * 
69075 - 
14309 - 
51737 - 
56696 - 
99476 - 
8 
00000 B 



COSINE ENTRY 
SINE ENTRY 
15 X SML NUF 
TLLY SUB 2f>I 
DIV BY ZPl 

SUB 2PI 
ADO HALF PI 

SUB 2PI Til 
X GOES NEG 
TLLY ADO 2PI 
ADO 2H TIL 
X GOES POS 
CHNGE SIGN X 
JMP TO POIYN 
tS X 1ST 6U6 
NO SUB PI 
IS X SML NUF 
NO SUB PI 
SAVE X 
X SQUARE 
ROUND SCALE 
ST6RE X 50 
& TO 8 
COMPUTE 
SIN X . 
POLYNOMIAL 
StAL£ ANSWER 
JU*0 TO EXIT 
32 2P1 

32 0*JE HALF Pi 
32 Pt 

43 C9 SCALED 43 
40 C7 SCALED 4 
38 C5 SCALED 38 
36 C3 SCALED 36 
34 CI SCALED 34 
ROUND OFF 



62314 

62000 

62314 

62315 
62316 



6232 
62321 
62322 
62323 
62324 
62325 
62326 
62327 
62330 
62331 
62332 
62333 
62334 
62335 



62337 
62340 
62341 
62342 
62343 
62344 
62345 
62346 



62350 
62351 
62352 



623M 
623*5 
62356 
62357 
62360 
62361 
62 36 2 
62363 
62364 
62365 



00 
00 
$1 
45 
46 
11 
42 
44 
73 
46 
36 
35 
45 
36 
46 
44 
35 
46 
43 
45 
42 
36 
42 
36 
11 
71 
32 

it 

31 

75 
24 
24 
U 
45 
31 
66 
14 
06 
77 
02 
65 
17 
6! 
00 



O0OOO 
00000 
06000 
00000 
62011 
02051 
02040 
62006 
02040 
02G16 
02040 
02041 
OOOOO 
02040 
02016 
02 006 
02040 
02015 
20000 
00000 
02041 
02042 
02041 
02042 
20000 
OOO 2 7 
02050 
20600 
02043 
26O04 
02044 
000 IS 
36GOO 
60000 
16375 

22677 
44176 
01272 
63011 
10416 
25252 
77777 
00000 
70000 



00600 
00006 
00000 
00000 
020i0 

loooo 

62617 
02013 
1000C 
02022 
20000 
20000 
02003 
20000 
92005 
02016 
20000 
02022 
20000 
62626 
62626 
20000 
62026 
20000 
00027 
10000 
00051 
606£0 



62635 
60030 
60027 
20000 
02001 
*242l 
32564 
65211 
34647 
57010 
36646 
76030 
77645 
6000C 
00000 
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Small Angle Sine -Cosine Routine 
Specifications 



Identification Tag: 

Type: 

Assembly Routine Spec: 

Storage : 



RW-149 

SIN-2 

Pg. 1 of 3 

revised 5 A/56 



SIN-2 

Subroutine 

sub Ij-9770 03009 

21 instructions 

9 constants in program 

30 words total program storage 

2 words temporary storage pool used, 
addresses 00027b and 00030b 



V 






1 



I— • 
X 

a* 



Drum Assignment: 
Entrance and Exit: 

Alarm: 

Machine Time: 
Mode of Operation: 



Coded by: 

Machine Checked by: 

Approved by: 



Addresses 63052b thru 63107b 

RJ OOK01 00K03 for the sine 

RJ 00K01 00K02 for the cosine 

The alarm exit is used to print "SIN -2" 
if the argument is too large 

2.20 ms average, 3*1^ Jas maximum 

Fixed point 



M. Elmore 
M. Elmore 
W. Dixon 



April 22, 1955 
April 29, 1955 
July 20, 1955 
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Description 

When supplied with an argument x (- ^^<x< *$£ ) scaled by 2 s2 
(that is, X'2 32 ) this routine will compute either 2 32 *sin x or 
2 s2 'cos x, depending on which of two entrances is used. Computation 
is by means of the Rand approximations using the repeated polynomial 
multiply instruction ( hence , SIN-2 should not be used on 1103 
computers not equipped with the polynomial multiply instruction) . 

The absolute error is less than 2~ 27 . 

Programming Instructions 

1. Place x»2 32 in A 

2. RJ to the subroutine . If the subroutine has been assigned some 
arbitrary region, say 00K00, then the address of the sine 
entrance is 00K03, the address of the cosine entrance is 00K02, 
and the address of the exit is 00K01. One should therefore use 
one of two RJ instructions to enter the routine: 

RJ 00K01 00K03 to obtain the sine, or 
RJ 00K01 00K02 to obtain the cosine. 

5« At the time of exit from the routine , either 2 32 »sin x or 

2 s2 * cos x will be left in A. 

k. An alarm occurs if x exceeds the range 



Mathematical 


Analysis 


5 

>:■ 


<x<^f 


Method 


used 


for sin x: 
sin x = 


^Z\ -1 



i=l 

3 This polynomial is related to the Rand Sheet No. 16 polynomial 
Y by the following relation: 

o 

8 a K = C K <?<ff> K - 



I s - Method used for cos xx 
x 

x is replaced by (^p£) - |x| and sin x is found as above. 

Machine Checking 

The sin x and cos x of 15 values of x were found and the results were 
checked against results of SIN-1 for the same angles. The answers were 
identical, which is to be expected since the same polynomial was used in 
both routines. 9-306 
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D 

D 

82S00 

82S01 

82S02 

82S03 

82S04 

82S05 

82S06 

82S07 

82S08 

82S09 

82S10 

82S11 

82S12 

82S13 

82S14 

82S15 

82S16 

82S17 

82SI8 

82S19 

82S20 

82S21 

82S22 

82S23 

82S24 

82S25 

82S26 

82S27 

82S28 

82S29 



37 
MJ 
TJ 
TJ 
11 
MJ 
TJ 
TM 
TP 
ST 
TJ 
TP 
MP 
SA 
TP 
SP 
RP 
PM 
PM 
TP 
MJ 
01 
-1 
24 
01 
02 
-1 
08 
-1 
09 



82S00 
81S00 
75701 
00000 
81S21 
81S21 
81S23 
00000 
81S22 
AOOOO 
81S21 
00023 
81S22 
AOOOO 
00023 
81S24 
AOOOO 
81S25 
20004 
81526 
00013 
BOOOO 
00000 
57079 
57079 
14065 
00000 
60188 
98074 
33302 
66666 
99999 



49770 
01024 
75702 
00000 
81S06 
81S10 
75756 
81S00 
81S04 
00023 
AOOOO 
AOOOO 
81S04 
00023 
QOOOO 
00041 
00024 
00035 
81S18 
00024 
00023 
AOOOO 
81 SOI 
63268 
63268 
67404 
00000 
69075 
14309 
51737 
56696 
99470 



BRB 



B 
B 



32 
32 



43 
40 
38 
36 

34 



COSINE ENTRY 
SINE ENTRY 
ALARM TAG 
TO ALR 

HALF PI 
MINUS X 
FOR COS X 

STORE X 
X SQUARE 
ROUND SCALE 

STORE X SQ 
C9 TO B REG 
COMPUTE 

SIN X 

POLYNOMIAL 
SCALE ANSWFR 
JUMP TO EXIT 
ONE HALF PI 



ALARM 

ROUND 

C9 

C7 

C5 

C3 

CI 



TAG 
OFF 



63052 
02000 
63052 
63053 
63054 
63055 
63056 
63057 
63060 
63061 
63062 
63063 
63064 
6306 5 
63066 
63067 
63070 
63071 
63072 
63073 
63074 
63075 
63076 
63077 
63100 
63101 
63102 
63103 
63104 
63105 
63106 
63107 



00 00000 

00 00000 
37 75701 
45 00000 
42 0202 5 
42 02025 

11 02027 
45 00000 
42 02026 

12 20000 
11 02025 
36 0002 7 
42 02026 
11 20000 
71 0002 7 
32 02030 
11 20000 
31 02031 
75 20004 
24 02032 
24 00015 
11 30000 
45 00000 
06 22077 
71 55700 
24 14065 

01 00000 
00 01272 
77 63011 

02 10416 
65 25252 
17 77777 



00000 
00000 
7 5702 
00000 
02006 
02012 
75756 
02000 
02004 
00027 
20000 
20000 
02004 
00027 
10000 
00051 
00030 
00043 
02022 
00030 
00027 
20000 
02001 
32504 
45273 
6 7404 
00000 
34047 
57010 
36646 
70030 
77645 
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THE RAMO-WOOLDRIDGE CORPORATION 
Los Angeles 45, California 

SQUARE ROOT 



Specifications 



Identification Tag: 

Type: 

Assembly Routine Spec: 

Storage : 



SQR-0 
Subroutine 
SUB 49312 04409 
34 instructions 
10 constants in program 
44 words of total program storage 
4 words of temporary storage pool used, 
addresses 00027t>~fiiru 00032b 



Entrance: 
Exit: 

Alarm Exit: 
Machine Time: 
Mode of Operation: 



Address SUB02 

Address SUB01 

The alarm exit is used. 

2. 38 ms. maximum machine time 

Fixed point 



Coded by: 
Code Checked by: 
Machine Checked by: 
Approved by: 



o 
m 



i 

i 

o 
o 



cu 



A. Roberts, Jr. (ERA) 
T. Tack 
M. Elmore 
W. Dixon 



December 1, 1954 
March 15, 1955 
March 19, 1955 
April 29, 1955 
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Description 

This routine uses a rational function approximation followed by one step 
of the Newton-Raphson procedure to compute the square root. It was 
written by A Roberts of E. R. A. and adopted for use at Ramo-Wooldridge, 

Programming Instructions 

Assume the routine is stored at SUBOO. If x is the number whose 

33 
square root is desired, place x. 2 in the accumulator. Since the 

entire 72 bits of the accumulator are used in taking the square root the 

permissible range on x is 

0£x<2 38 

Execute the return jump instruction 

U SUB01 SUB02 

33 
Upon exit from the routine the square root of x* scaled by 2 is left in 

the accumulator. 
Alarm Condition 



33 
If x- 2 ^ an alarm pfint of "SQR-0" will occur and the computer will 

halt with 

33 
(A) =x- 2-" 

Pushing the start button will return control to the exit of SQR-0. 



Mathematicl Method and Accuracy 
§ A first approximation of the form 

i-H 

T _ /„j_ \_«_ c 

o 
o 
o 



c.<x+c 4 )+c 2 - 3^ 
* (x+c 4 ) 

is computed. One application of the Newton-Raphson formula to this 



v*. first approximation gives the desired square root. 33 bit accuracy 

cu 

was obtained in all cases tested. 
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D 




S2S00 


49312 






62140 


00 


OOOOO 


OOOOO 


D 




01S00 


01024 






02000 


00 


ooppo 


OOOOO 


D 




01 TOO 


00023 






00027 


00 


OOOOO 


OOOOO 


D 




01A00 


00013 






00015 


00 


00,000 


OOOOO 


S2S00 


37 


75701 


75702 


B 




62140 


37 


75701 


75702 


S2S01 


MJ 


00000 


ooooo 




EXIT 


62141 


45 


OOOOO 


OOOOO 


S2S02 


SJ 


01S32 


01S03 




ARG NEG 


6*2142 


46' 


02040 


02003 


S2S03 


ZJ 


01S04 


01S01 




ARG ZERO 


62143 


47 


02004 


02001 


S2S04 


SF 


A 0000 


01 TOO 






62144 


74. 


20000 


00027 


S2S05 


TP 


AOOOO 


AOOOO 




CLEAR B 


62145 


11 


20000 


20000 


S2S06 


TP 


A,0000 


01.T01 




STORE SC ARG 


62146 


11 


20000 


00030 


S2S07 


SA 


01 S3 5 


00054 






62147 


32 


02043 


00066 


S2S08 


TP 


AOOOO 


01T02 






62150 


11 


20000 


00031 


S2S09 


MP 


01S36 


01T02 






62151 


71 


02044 


00031 


S2S10 


At 


01S37 


01T03 






62152 


35 


02045 


00032 


S2S11 


SN 


01S38 


00015 






62153 


33 


02046 


00017 


S2S12 


OV 


01T02 


Aoooo 






62154 


73 


000 3 i 


20000 


52S13 


AT 


01T03 


01T02 






62155 


35 


00032 


00031 


S2S14 


SP 


01T01 


00032 






62156 


31 


00030 


00040 


S2S15 


SS 


01T02 


OOOOO 






62157 


34 


00031 


OOOOO 


S2S16 


DV 


01T02 


AOOOO 






62160 


73 


00031 


20000 


S2S17 


AT 


01T02 


01T02 






62161 


35 


00031 


00031 


S2S18 


LQ 


OITOO 


00O35 






62162 


55 


00027 


00043 


52S19 


QT 


01A01 


AOOOO 






62163 


51 


00016 


20000 


52520 


TV 


AOOOO 


01S28 






62164 


16 


20000 


02034 


S2S21 


TP 


01S31 


01S29 






62165 


11 


02037 


02035 


S2S22 


TJ 


01S39 


01S24 






62166 


42 


02047 


02030 


S2S23 


TP 


01S34 


01S29 






62167 


11 


02042 


02035 


S2S24 


Qj 


01S28 


01S25 






62170 


44 


02034 


02031 


S2S25 


MP 


01S40 


01T02 






62171 


71 


02050 


00031 


S2S26 


SA 


01S41 


00037 






62172 


32 


02051 


00045 


S2S27 


TP 


AOOOO 


G1T02 






62173 


11 


20000 


00031 


S2S28 


SP 


01T02 


ooooo 






62174 


a 


00051 


OOOOO 


S2S29 


00 


00000 


ooooo 


B 




62176 


00 


OOOOO 


OOOOO 


S2S30 


TP 


AOOOO 


A0000 






62176 


ii 


20000 


20000 


S2S31 


MJ 


00000 


01S01 






62177 


45 


OOOOO 


02001 


^S2S32 


11 


01S42 


75756 


BRB 




62200 


11 


02052 


75756 


gS2S33 


MJ 


00000 


01S00 






62201 


45 


OOOOO 


02000 


CJS2S34 


32 


01S43 


00044 


B&B 




62202 


32 


02053 


00044 


J.S2S35 


c.O 


47670 


31361 


B 


D 


62203 


26 


47670 


31361 


^52536 


00 


00000 


65324 


B 


A 


62204 


00 


OOOOO 


65324 


§S2S37 


11 


45346 


44516 


D 


B 


62205 


11 


45346 


44516 


Js» yj£. O 3 O 


33 


06571 


40273 


B 


C 


62206 


33 


06571 


40273 


X S2S39 


00 


00000 


00023 


B 




62207 


00 


OOOOO 


00023 


°-S2S40 


26 


50117 


14640 


B 




62210 


26 


50117 


14640 


S2S41 


20 


00000 


OOOOO 


B 




62211 


20 


OOOOO 


OOOOO 


S2S42 


24 


35125 


63704 


B 


TAG SQR 


62212 


24 


35125 


63704 


S2S43 


37 


77777 


77777 


B 




62213 


37 


77777 


77777 
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Identification Tag: 

Tfrpe: 

Assembly Routine Spec; 

Storage: 



Entrance and Exit: 



Machine Time: 



Mode of Operation: 



RAN-0 

Subroutine 

SUB 50010 02007 

20 words total program storage 

2 words temporary pool used, addresses 
30b and 31b 

The constant pool is used. 

RJ SUBOO SUB02 normal entrance 

RJ SUBOO SUB01 reset entrance 

hj2 + 690 n microseconds (for definition 
of n, see Mathematical Method) ♦ 

If n » 6 (the normal case) this gives 
k6l2 microseconds . 

Fixed point 



10 



1 
1 



ft 



Coded by: 
Code Cheeked by: 
Machine Checked by: 
Report Written by: 
Approved by: 



R. Bigelow 
M. Perry 
R. Bigelow 
F. Meek 
W. Bauer 



July, 1955 
July, 1955 
August, 1955 
April, 1956 
May, 1956 
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Description 

Bepeated use of this subroutine produces a sequence of pseudo random 
numbers from an approximately normal distribution having mean equal to zero, and 
standard deviation equal to one. 
Programming Instructions 

Each entry to this subroutine produces in the accumulator a quantity 
x.2 where x is a pseudo random number selected from the sequence described above. 
To obtain each x in the sequence use BJ SOBOG SUBG2. The subroutine must not be 
destroyed between successive entries if the sequence of x's is to have the desired 
randomness . 

To restart the sequence, i.e., to obtain the first x again after the sub- 
routine has been entered one or more times, use RJ SUBOO SUB01. 

The subroutine may be modified to cause the sequence of x's to more closely 
approximate a normal distribution. To make this modification choose a number n such 
that 5^n£32 and make (SUB18) = (n - l)-2° and make (SUB19) = (Y3/n>2 35 , Increasing 
n improves the approximation to a normal distribution and increases the machine time 
(see page l). The unmodified routine uses n = 6. 
Mathematical Method 

Let y i = 5 ^ y ± -. (mod 2 ), where q is a non-negative integer, and y Q is 
any odd positive integer less than 2 (see appendix), define a sequence -j y 4 f of 

lO 

seauences or random mxescers unirormi.v ais-criDuxea Deween zero ana 2 1 

o 

1 

cr- 

r- < 
t- 

X 

0. 



positive integers. Such sequences satisfy many of the properties associated with 

. g 
\ sequences of random integers uniformly distributed between zero and 2 . In fact, 

a many such sequences have been computed and tested for "randomness" and for "goodness 

of fit" to a uniform distribution and have been found satisfactory for most purposes 

(see Testing ). 
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If one assumes that the sequence ly. X defined above is a sequence of 
truly random integers uniformly distributed between zero and 2 , one can obtain a 
sequence / x.) of random numbers from a distribution -which approximates the standard 
(zero mean and unit standard deviation) normal distribution by appealing to a well- 
known theorem concerning the distribution of means. On page 69 of [~5j there 
appears the following 

"Theorem: If y has a distribution with mean m and standard deviation <T for which 
the moment-generating function exists, then the variable 
1) x = (y-m) Jn/<r 

has a distribution which approaches the standard normal distribution as n becomes 
infinite". In l), y denotes the average value of n sample values of y. This theorem 



is applicable to the integers y. from the sequence j y i because there certainly 

exists a moment-generating function for a uniform distribution. The mean m of the 

y. is clearly 
1 

2) . m - \ '2 s = 2 s " 1 . 

The standard deviation 6~ is easily found to be 

3) <T = _1_ -2 s " 1 = m 

YT IT' 

(See the appendix for a derivation of 3)0 
Let 

k=0 



% denote the average of n consecutive values of y from the sequence f y* % beginning 



>< with y ., j=0, 1,2, — , and write l) as 



* For the definition of a moment-generating function, see page 26 of (5 j • 
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According to the theorem, x. is the j number in a sequence /x.£ of random 
numbers from a distribution which approaches the standard normal distribution as 
n becomes infinite. On using 2) and 3)> 5) beeomes 
6) Xj - T/SGyZ 1 - 5 -1). 

In regard to the sequence (ySl defined above, it can be shown that such a 

s-2 
sequence has period 2 " . To obtain the longest period possible, s was chosen to be 

35 for this subroutine. 

Other computing installations have chosen q as large as possible, subject 

only to the restriction that 5 must be contained in one storage register. Since 

multiplication time on the 1103 is a direct function of the number of binary ones in 

one of the multiplicands, 5 was somewhat arbitrarily chosen to be 5 • See [lj . 

In order not to introduce a bias at the beginning of the sequence, the subroutine 

uses for y the 17th integer in the sequence obtained using y~ = 1, namely, 

13 klA37 5Vf65b. See [l] . 

It was stated under Programming Instructions that the unmodified subroutine 

uses n = 6. It is believed that this value of n will yield numbers sufficiently 

In "normal" for most purposes. See Testing . 

o- The subroutine does not use formulas k) and 6) to compute x . Instead 

a* the following equivalent process is used: Form 



n-1 

x 

°-7) 



and then, 



£[>.*.-*> ••^-v". 
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8) x . 2 3° - 1 z . 2 3° . 

Using n = 6, and s = 35 > it is easy to verify that 7) and 8) are equivalent to 

k) and 6). 

Testing 

In the first paragraph under Mathematical Method it was stated that many 
sequences (y^ have teen computed and tested for "randomness- and for "goodness 
of fit" to a uniform distribution. One such testing program was carried out on the 
SEAC \_2J using 2q+l = 17 and s » 42. Another testing program was carried out on 
the OKDVAC / 3 J using 2q+l = 13 and s - 39* A similar process for generating pseudo- 
random integers on a decimal computer, i.e., the IMIVAC, was devised and tested \_kj • 
In all of these testing programs, the integers generated were judged to "be "satisfac- 
tory". But in all these testing programs q. (or its analog on the THOTAC) was chosen 
as large as possible, subject only to the particular machine register capacity. 
Therefore, the small value of q. used "by this subroutine on the 11G3 @n order to save 

multiplication time) is somewhat questionable. In fact, Juncosa f3j states that 

k k 

if 5 is used, k should be an od,d integer such that 5 is "preferably slightly less 

than 2 ". The choice of n = 6 is likewise questionable. Therefore, it was decided 

to write a routine, which shall hereinafter be referred to as the testing routine, 

j^which would in some sense test the pseudo normally distributed random numbers x.. 

1 
a* The results obtained with the testing routine can be termed satisfactory. For more 

o 
o 
£ details, see the appendix. 

>< The subroutine, with q. = 2 and n = 6, has already been used with apparently 

satisfactory results. It was used to evaluate a function in the form of a Fourier 

series with normally distributed random coefficients. It was also used to simulate 
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random and correlated radar noise. In this connection, the theoretical distribution 
of x. was computed and plotted* (assuming the y f to te f» a truly unifon* dlstrl- 
bution) with n- * 6. This plot is shown, along with the standard normal distribution, 
as figure k in the appendix. The difference between the two curves would be con- 
sidered negligible for most applications. However, there is a difference which does 
not show on the figure, and which might be considered important for some applications 
From k) and 6) under Mathematical Method , one can show that 

[x^ < ys" < 4.25 

for n = 6. Hence the probability of obtaining an /x 1^4.25 is aero. But, for 
the standard normal distribution, the probability of obtaining an |x|^4.25 is 
about one in fifty thousand. 



* The writer is indebted to R. Schwarz for suggesting the computation and carrying 
it out. 
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APPENDIX 



Derivation of G* 

If the uniform distribution function f (y) is chosen so that the area 

2 

under the curve is unity, the variance^ is equal to the second moment about the 

mean m, i.e., 



<T Z = J (y-mf f (y) dy, 




where 2m = 2,m = l , 2 =2" . To make the area equal to unity, f(y) must be 

2 
l/2m. Thus 

2 f^ 1 2 2 
&* = l/2m I (y - 2my + m ) dy, 





to 



1 

o 
I 

o 
o 



a, 



or /f~ = m , and/*} = m which is 3) under Mathematical Method. 

— ° w 

The Testing Boutine 

The testing routine uses RAN-0 (with q = 2 and n = 6) to generate in 
sequence any number M of sets of N x's, likewise in sequence. For example, the 

ci 

data used in figures 1, 2, and 3> "was produced using M » 512 and If = 100, so that 

MN = 51,200 x 's were generated in sequence and divided into 512 sets of 100 each. 

For each set of N x . ' s the following three quantities are computed and punched on 

J 

cards using CP0-2: 



1. 



XI 
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x is the sample mean and s is the sample variance. 



* 10 



3- x 2 =£*li^ 



i=l 



where "t^-. is the actual number of x.'s for which a.^x.<a. n , and e. is the number 
i j i j i+1' i 

of x.'s for which it is expected that a ^x <a , assuming that the x 's are dis- 
tributed normally with zero mean and unit standard deviation. The a. are given in 

e e 

the table below along with the corresponding / N . The values of / w - 

Table II> pp. 243 - 245 of £5] . 



i 


a i 


% 


1 


- cO 


.02275 


2 


-2,0 


.04406 


3 


-1.5 


.09185 


4 


-1.0 


.14988 


5 


-0.5 


.19146 



i 


a i 




6 





.19146 


7 


0.5 


.14988 


8 


1.0 


.09185 


9 


1.5 


.04406 


10 


2.0 


.02275 


11 


+ o<o 






IG 



X is a measure of the "goodness of fit" of the generated x, to the standard normal 



8 distribution. 

0^- 



ft 



On figures 1, 2, and 3 are plotted the histograms of the actual frequencies 

obtained from M = 512 sets of N = 100 x.'s each. Figures 1, 2, and 3 refer respectively 

J 

to the computed quantities x, s , and^. On each figure is also plotted the theo- 
retical distribution curve of the appropriate quantity. 

* Chi - squared 



9-318 



lO 



a* 



RW-151 

Pg. 9 of 16 
5/EC/56 

If the x are normally distributed with m * and & * 1, x will also be 

j xx 

normally distributed with m— = and O = x / \T~$~ •■*- * 



At the top of page 138 of £5]) ^&sre appears the following 

*- 2 2 

Theorem: If x is normally distributed with variance o , and s is the sample 

variance based on a random sample of size H> then Ns j „ has a ^ distribution 

with ft - 1 degrees of freedom. 

The above theorem is applicable with<5" = 1 and 3S = 100, and using 

(8), page 13^4- of [%) , for the distribution function of "X , one obtains 

2 2 2 1 2 9T / 2 -^t Z 

fdOOs 2 /,) - f (100. 2 ) - f(u 2 ) . ^\ (u 2 ) e 

which reduces to 



f(u 2 ) . ■ 1 ( u\ 97/2 -u 2 /2 



m) 



<v 



2 2 2 

where u = 100s . This latter expression for f (u ) is rather easily evaluated using 

natural logarithms , i.e., 

2 2 
log f(u 2 ) = 9T/ 2 log (%)-%- log 2 - logP(2|). 

IjOS I ( p) ca n be approximated using Stirling's formula or it can be evaluated 

directly using 



T log f(2|) « log 21 + log 2| + log 22 + . . , + i g I + io g p (|). 

o Either method yields log / (*£) ^1^2.6172. The expression above for log f(u ) was 



used to obtain a sufficient number of points to plot the theoretical distribution 

2 
curve of s on figure 2. 

The theoretical distribution curve of X with 9 degrees of freedom which 

is plotted on figure 3, was obtained from data given in Table III, page 2k6 of [5 J . 
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(The number of degrees of freedom is one less then the number of groupings used to 
compute X for a sample of size H. ) 

For each of the three figures the frequency histograms and the theoretical 
distribution curves have been adjusted to have the same area under them. 

Bsmarks on the Figures, Randomness, and the Choice of q 

For all three figures the histograms seem to follow the curves fairly well. 
This indicates that the x. generated by the subroutine (with q = 2 and n = 6) are. 
distributed in a fashion which approximates the standard normal distribution to a 
fairly high degree. Figure k suggests the same thing but it is entirely theoretical. 
It should be emphasized that none of the figures shows anything about the randomness 

of the x.. An inspection of the data which produced the histograms indicates that 

■* - 2 ^2 
the computed x, s , and /^ for consecutive sets of 100 x's are random. But again, 

this says nothing for the randomness of the x 's themselves. The testing of the 

randomness of the x.'s was deliberately avoided because it was assumed from the 

results of the testing done on the sequences of the pseudo-uniformly distributed 

integers by other computer installations, that the sequence < 7 ± \ with q = 2 , 

and hence the sequence 4x J computed by the subroutine, would 

be sufficiently random for our purposes. As was pointed out under Testing , the 

^only significant difference between the sequence / y.t computed by the subroutine 

12 and those sequences tested at other installations was the value of q. tfbr the 
I ,.,-•■ 

T subroutine q was chosen small so as to shorten the multiplication time on the 1103* 

-* The other installations chose q as large as possible because it was intuitively 
£ felt that such a choice might produce more randomness, such a choice would auto- 
matically eliminate any bias at the beginning of the sequence with y~= 1, and the 
computer multiplication times did not depend on q. But since the period of the left- 
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most binary digit of the Integers y., and hence the period of the sequence 1 y. < , 
is 2 ~ , independent of q, ( [zJamSi [kj ), and since it is believed that the 
randomness and the uniformity of the sequence I yA is due to this long period 
(s being chosen as large as possible), it appears also that the randomness and 
uniformity of the sequence j y. \ is independent of q . 

Remarks on the Choice of y^ 

It was stated in the first paragraph under Mathematical Method that y Q can 

be any odd positive integer less than 2 . There are 2 " such integers and they 

s-2 
can be divided into 2 groups of 2 integers each, according to whether, in binary 

representation, they end in 01 or 11, i.e., whether they are of the form kk + 1 or 

kk + Zt & being any non-negative integer less than 2 " . Now let s ^2, q> 0, s and 

% such that 5 2<1 + " 1 <2 S . If y Q « kin + 1<2 8 , e.g., y Q « 1, the first 2 s " 2 integers 

y. of the sequence <7 ± \ will be the 2 s " distinct integers of the form kk + 1, and 

then the sequence will repeat itself. Similarly, if y Q * his. + 3<2 , e.g., y Q = 3> 

the 2 distinct integers generated will be of the form his. + 3. 
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Identification Tag: 

Type: 

Entrance and Exit: 



HPH-0 

Service routine with program entrance 
37 40020 40022 b to read a card 
37 40020 to)23 b to punch a card 



Coded by: 
Approved by: 



R. Beach 
W. Bauer 



May, 1956 
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Dsscription 

This routine will read in one card or punch out one card each time it 
is entered. It allows the programmer to include column headings in 
listed output when using either SHAP output or CPO-2. The routine 
stores cells l660 b - 1777 b in the MD image, then bootstraps itself 
into ES for operation. After completion of the read or punch function, 
ES is restored and control returned to the program. A and Q are not 
altered by the routine. 

Executing a read entry causes one card to be read and a complete 
alphanumeric card image to be stored. Executing a punch entry results 
in punching a card identical to the one read in with the exception of 
the twelve row of field three which is replaced with punches to control 
the 407 (See Operation) . Only numeric information can be punched in 
field three and the information in this field will be printed by the 
407 at the extreme left of the page , followed by 6 spaces . 

A parameter word is used to specify the first of the 36 words in 
which the card Image is to be located upon, reading, or the first of 
the 36 words from which the card image to be punched. 

The routine assumes that cards hare been positioned in the Bull, but 
it does not alter card positioning when us*d. A blank card will be 
fed on the punch side when the read entry is executed. 

Programming Instructions 

1. To read a card. Enter the routine with 37 40020 40022 b 
followed by a parameter word of the form 00 00000 xxxxx where 
xxxxx is the address of the first cell in memory in which the card 
image is to be placed. Control is returned to the instruction 
following the parameter word. 

2. To punch a card. Enter the routine with 37 ^0020 40023 b 
followed by a parameter word of the form 00 000TT xxxxx where 
xxxxx is the address of the first cell in memory at which the 
image to be punched is located, and YX is: 

00 thru 19 for single spacing 

<~\ 

CM 

% 20 thru 29 for double spacing 

1 
°^ 30 thru 49 for triple spacing 

8 

£ 50 thru 89 for page ejection 

§2 The spacing takes place before printing the card. These page con- 
trols are identical to those used for SNAP with the exception 
that in this routine the combinations 00 thru 09 have the 
same effect as the combinations 10 thru 19 • 
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The twelve row of field three of the card image will be replaced 
by a row containing the page controls and a SHAP identification 
punch (12 punch in column 75)* It is advisable, therefore, to 
use only columns 1 thru 72 of the card for heading purposes. 
Only numeric information can be printed from field three. Since 
the card contains a SHAP identification punch, the word spacing 
in the first 72 columns will be the same as for SHAP; that is, 
four spaces are inserted after columns 12, Zk } ^,6, k&, and 60. 
The numeric information in field 3 is printed at the extreme left 
of the page. 

Bestrictlons 

The card image may be located anywhere in memory except cells l66o b - 
1777 b (and also with the exception of cells reserved for the R-W 
library) . It is recommended that card images be placed on the drum 
since the time involved in reading and punching using drum locations 
is very nearly the same as that involved when the card image is in BS. 

Suggested Use 

It is suggested that the input heading cards be placed at the front 
of the input deck, and that they be read in by the program before other 
computation is begun. Output heading cards can then be punched by 
the program at any time. 
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CONTROLLER 
A CARD HANDLING SUBROUTINE IC 010 

I. DESCRIPTION 

This subroutine simplifies the reading and punching of cards 
especially in cases where blocks of cards with the same format are 
handled* It will be available shortly with the service routines on 
W3. 

This subroutine operates from the drum and handles all necessary 
block transfers. Up to 63 cards in each channel can be handled by one 
subroutine reference , reading and punching proceeding concurrently if 
desired. There are three entrances to this subroutine as described 
below* 
II* CARD FORMATS 

Each card format is described by a series of parameter words as 
desoribed in IC 005, IC 006 and IC 007. For use with this subroutine, 
these words are preceded by one word, m, the number of fields on the 
card. These formats must be stored in MD. ( o 4 r^ < 3 1 ) • 
III. ENTRANCES 
1. Primes 

37OOOOOO 701*00 
Next instruction 
This subroutine is always one read card ahead of the main program. 
It retains the information from this card within itself. For this reason, 
when a new deck of cards is placed in the read hopper, the subroutine 
must be primed as well as the reproducer. Both are primed by this 
entrance to the subroutine. 
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2. READ 

37 00000 70li02 

an jjjjj vwvv 

Bert instruction 
This entrance cause nn cards of format jjjjj (first address for format) 
to be converted and stored in cells starting with mw, (which may be 
in ES or MD). 
3- PUNCH 

37 00000 70401 

aa 33333 ttvtv 
Next instruction 
This entrance punchea nn cards of format jjjjj using data starting 
in cell vwvv, (which may be in ES or MD). 
IV. 0PERATIN0 NOTES 

1. If the "next instruction* after a punch card entrance is a read card 
entrance, the operations of reading and punching will begin simultaneously. 

2. Whenever reading occurs without simultaneous punching, a blank card 
will appear in the output. 

3. After approximately 270 words are read or punched, the reproducer 
will drop out of operation momentarily while block transfers are effected. 
h. In case of trouble with the reproducer, e tart at 00000. 

5. IC 007 is contained in this routine. It is located in cell 70656 
and is modified to operate from location 00670. 
V. SPECIFICATIONS 

LOCATION* 70400 to 71257 
TEMPORARIES t 7^001 to 75777 

This subroutine is not standard and is not to be modified. Its 
sum is constant. 
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CV-153 

PAGE ic 010-3 

REPORT ZM 2+91-H 

MODEL All 

date 5"28»56 



CONTROLLER 6/4/56 





70400 




45 


00000 


70402 






70401 




45 


00000 


70402 






70402 




41 


00000 


00000 


PICKUP ADDRESS 




70403 




75 


31777 


70405 


SAVE 




70404 




11 


00001 


74001 


ES 




70405 




11 


20000 


00002 


STORE ADDRESS 




70406 




31 


20000 


00017 


PICK 




70407 




15 


20000 


70411 


UP 




70410 




75 


30004 


70412 


CALLING 




70411 




11 


30004 


00422 


SEQUENCE 




70412 




75 


30660 


00426 


PLACE CONTROLLER 




70413 




11 


70414 


00426 


IN ES 




70414 


00426 


15 


70410 


70411 


RESET DRUM SUM 




70415 


00427 


16 


00002 


00635 


SET EXIT 




70416 


00430 


55 


00422 


10042 


TEST 




70417 


00431 


44 


00433 


00432 


FIRST 




70420 


00432 


44 


00436 


00621 


ENTRANCE 




70421 


00433 


11 


00423 


00425 


NJV1 TO NJV 2 




70422 


00434 


11 


00640' 


00423 


CLEAR NVlt 00641 TO Jl 




70423 


00435 


45 


00000 


0C441 






70424 


00436 


31 


00424 


00000 


TEST SIMULTANEOUS 


CO 

in 


70425 


00437 


43 


00642 


00442 


READ 


i— i 
i 


70426 


00440 


11 


00640 


00425 


CLEAR NV2t 00641 TO J2 


s 

i 

o 


70427 


00441 


23 


00635 


00643 


ADJUST EXIT 


o 
o 

r- 1 


70430 


00442 


15 


00423 


00466 


SET FORMAT 


X 


70431 


00443 


15 


00425 


00464 


PICKUPS 


CU 


70432 


00444 


16 


00423 


00530 


TEST 




70433 


00445 


21 


00530 


00644 


AND 




70434 


00446 


42 


00645 


00450 


SET 




70435 


00447 


23 


00530 


00644 


PUNCH 




70436 


00450 


31 


20000 


00017 


PICKUP 




70437 


00451 


15 


20000 


00550 


TO PIN 
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PAGE IC C10-4* 

REPORT ZF , 91-U 

MODEL AH 

date 5-26-56 



CONTROLLED 6/4/56 



70440 


00452 


16 


00425 


00530 


TEST 


70441 


00453 


21 


00530 


00644 


AND 


70442 


00454 


42 


00645 


00456 


r C J q r £ rj ' 


70443 


004 5 5 


23 


00530 


00644 


STORE 


70444 


00456 


16 


20000 


00576 . 


rprv.i o j fj 


70445 


0045 7 


31 


0042? 


0^052 


Nl TO 


70446 


00460 


11 


20000 


00426 


M6 


70447 


004 61 


31 


004 2 5 


00052 


N2 TO 


70450 


00462 


11 


20000 


00423 


No 


70451 


00463 


75 


30037 


00465 


PICKUP 


70452 


00464 


11 


00000 


*1740 


READ FORMAT 


70453 


00465 


7 5 


30037 


00467 


PICKUP 


70454 


00466 


11 


00000 


00430 


PUNCH FORMAT 


70455 


00467 


55 


01740 


20000 


Nl LESS 


70456 


00470 


36 


00430 


20000 


M 1 


70457 


00471 


46 


00472 


00473 


LARGER 


70460 


00472 


11 


00430 


10 000 


TO Q 


70461 


00473 


31 


00646 


00000 


272 DIVIDED BY 


7 0462 


00474 


73 


10000 


004">? 


T N? 


70463 


00475 


11 


10000 


00425 


AMD N2 


70464 


00476 


11 


00423 


20000 


COMPUTE 


^ 70465 


00477 


73 


00422 


00423 


\'2 


£ 70466 


00500 


47 


00503 


no5oi 


TEST N4 FOUAL 7FR0 


JL 70467 


00501 


23 


00423 


0064} 


ADJUST 


§ 70470 


00502 


11 


00422 


20000 


N3 AND M 4 


5 70471 


00503 


11 


20000 


00424 


STORE N4 


£ 70472 


00504 


11 


00423 


20000 


TEST 


70473 


00505 


47 


00507 


00506 


N3 


70474 


00506 


11 


00424 


0042 2 


N4 TO N2 


70475 


00507 


11 


00426 


20000 


COMPUTE 


70476 


00510 


73 


00425 


00426 


M3 


70477 


00511 


47 


00514 


00512 


TEST M4 EQUAL 7ERO 
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CV-153 

PAGE ic 010-5 

REPORT ZM U91-H 

MODEL AH 

DATE 5-28-56 



CONTROLLER 6/4/56 



70500 


00512 


23 


00426 


00641 


ADJUST M3 


70501 


00513 


11 


00425 


20000 


AND M4 


70502 


00514 


11 


20000 


00427 


STORE M4 


70503 


00515 


71 


01740 


00422 


LOWER READ 


70504 


00516 


11 


20000 


10000 


STORE BY 


70505 


00517 


23 


00576 


10000 


Nl TIMES N2 


70506 


00520 


11 


00423 


00467 


N3 TO R 


70507 


00521 


11 


00426 


00470 


M3 TO S 


70510 


00522 


21 


00467 


00641 


N3-1 TO R 


70511 


00523 


21 


00470 


00641 


M3-1 TO S 


70512 


00524 


11 


00641 


00471 


1 TO P 


70513 


00525 


11 


00641 


00472 


1 TO Q 


70514 


00526 


75 


30037 


00532 


SHIFT READ 


70515 


00527 


11 


01740 


00473 


FORMAT 


70516 


00530 


00 


00000 






70517 


00531 


00 


00000 


00 * 




70520 


00532 


45 


00000 


00533 


SWITCH A 00557 


70521 


00533 


23 


00472 


00641 


Q-l TO Q 


70522 


00534 


47 


00560 


00535 


TEST 


70523 


00535 


23 


00470 


00641 


S-l TO S 


~ 70524 

CO 


00536 


47 


00537 


00544 


TEST 


3*0525 


00537 


46 


00540 


00545 


TEST 


4 70526 


00540 


23 


00611 


00647 


SUPPRESS PUNCHING 


70527 

s 


00541 


16 


00650 


00604 


SET SWITCH E 


£ 70530 


00542 


16 


00651 


00532 


SET SWITCH A 


* 70531 


00543 


45 


00000 


00544 


SWITCH 8 00626 


70532 


00544 


11 


00427 


00425 


M4 TO M2 


70533 


00545 


11 


00425 


00472 


M2 TO Q 


70534 


00546 


16 


00652 


00612 


RESET PUNCH BIN 


70535 


00547 


75 


30420 


00560 


PICKUP TO 


70536 


00550 


11 


o^ono 


00002 


PUNCH RIN 


70537 


00551 


16 


■00664 


01012 


PATCH 
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PAGE IC QJ.O*»0 

REPORT 2M ^91-11 

date 5-38*56 



CONTROLLER 6/4/56 



73540 


00552 


45 


00000 


ro7C7 


IN IC 007 




70541 


005 c 3 


16 


00662 


01^12 


CARD 




70542 


00554 


45 


^0000 


Q0?04 


SUBROUTINE 




70*43 


00555 


00 


00000 


00662 






70544 


*0556 


77 


43000 


K-100 


PARAMETEP 




70545 


00557 


16 


00652 


00612 


R^SET PUNCH RIN 




70546 


00560 


45 


00000 


00561 


fv'ITCH B 00605 




70547 


00561 


23 


00471 


00641 


P-l TO P 




70550 


00562 


43 


00641 


C0564 


TEST 




70551 


00563 


47 


00610 


00571 


TEST 




70552 


00564 


11 


00467 


20000 


TE«T 




70553 


00565 


47 


00610 


00566 


R 




70554 


00566 


11 


00653 


10000 


ScT TO PICK 




70555 


00567 


53 


00653 


00611 


PUNCH CARD 




70556 


00570 


45 


ooooo 


00610 


ON LAST READ 




70557 


00571 


37 


00571 


00577 


SWITCH 0057? 




70560 


00572 


71 


00473 


00422 


SET TO 




70561 


0^573 


■ i 


00654 


00017 


STORE 




70562 


00574 


15 


20*00 


00575 


ni hi 2 WORDS 




70563 


00575 


7S 


70000 


00577 


STORE FROM 




70564 


00576 


11 


0136^ 


3C A 00 


READ PIN 




^70565 

00 


00577 


23 


00467 


00641 


R-l TO P 




£ 70566 


00600 


47 


00601 


00605 


TEST 




cp 70567 


00601 


4 6 


00602 


00606 


TEST 




© 70570 


00602 


23 


00611 


00656 


SUPPRESS READING 




£ 70571 


00603 


16 


*065'0 


or- 343 


SET TWITCH 9 




£ 70572 


00604 


37 


00560 


00605 


SWITCH E 00626* « r T 


SWITCH C 


70573 


00605 


U 


C0424 


00422 


N4 TO N? 




70574 


00606 


16 


00655 


O0611 


RESET READ BIN 




70575 


00607 


11 


00422 


00471 


N2 TO P 




70576 


00610 


37 


006^0 


00670 


ENTER IC 007 




70577 


00611 


33 


00474 


01360 


CARD 
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PAGE IC010-7 

REPORT ZM Il91-H 
MODEL All 
DATE *-2i -56 



COMTROLLEP 6/4/56 



70600 


00612 


00 


00431 


00002 


SUBROUTINE 


70601 


00613 


21 


00611 


00473 


RAISE BIN 


70602 


00614 


21 


00612 


00430 


ADDRESSES 


70603 


00615 


21 


00576 


00473 


RAISE 


70604 


00616 


31 


00430 


00017 


STORAGE 


70605 


00617 


35 


00550 


00550 


ADDRESSES 


70606 


00620 


45 


00000 


00532 




70607 


00621 


23 


00635 


00657 


ADJUST EXIT 


70610 


00622 


17 


00000 


00660 


PICK CARDS 


70611 


C0623 


37 


00670 


00670 


PICK CARDS 


70612 


00624 


31 


00556 


00002 


AND READ 


70613 


00625 


00 


00000 


0&'» 


TO BCD BIN 


70614 


00626 


23 


20000 


20000 


SUM 


70615 


00627 


75 


20011 


00631 


BCD 


70616 


00630 


32 


01212 


00000 


BIN 


70617 


00631 


13 


20000 


01223 


ADJUST DRUM SUM 


70620 


00632 


75 


30012 


00634 


BCD BIN 


70621 


00633 


11 


01212 


71200 


TO DRUM 


70622 


00634 


2.1 


00635 


00661 


ADJUST EXIT 


70623 


00635 


75 


31777 


00003 


RESTORE ES 


70624 


00636 


11 


74001 


00001 


AND EXIT 


£70625 


00637 


00 


00000 


# 


C 


C70626 
1 


00640 


00 


00641 


00000 





<T 70627 




00641 


00 


ooono 


00 01 . 


N 


§ 70630 
•—I 


00642 


37 


00000 


70402 


S 


*" 70631 


00643 


00 


00000 


00 02 


T 


°* 70632 


00644 


00 


00000 


74000 


A 


70633 


00645 


00 


00000 


76000 


N 


70634 


00646 


00 


00000 


00420 


T 


70635 


00647 


22 


00000 


^0000 


S 


70636 


00650 


00 


00000 


00626 




70637 


00651 


00 


00000 


00557 
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REPORTfM Itjl-II 
MODEL All 
DATE C.2g.^ 



CONTROLLER 6/4/56 





70640 


00652 


00 


00000 


2 




70641 


00653 


20 


00000 


■"'OOOO 




70642 


00654 


00 


00000 


30000 




70643 


00655 


00 


00000. 


01360 




70644 


00656 


11 


00000 


000OO 




70645 


00657 


00 


00000 


00 03 




70646 


00660 


00 


00000 


00114 




70647 


00661 


on 


r- r\ n 


O0 04 




70650 


00662 


75 


10011 


01013 




70651 


00663 


11 


00667 


01212 




70652 


00664 


00 


OT>00 


00723 




70653 


00665 


00 


00000 


0* * 




70654 


00666 


00 


00000 


00 * 




70655 


00667 


00 


00000 


00 




70656 


00670 


71 


01166 


00611 




70657 


00671 


15 


20000 


00724 




70660 


O0672 


16 


200OO 


00762 




70661 


00673 


16 


01014 


00000 




70662 


00674 


55 


20000 


00003 




70663 


00675 


31 


01163 


00003 




70664^ 


00676 


5 ? 


01202 


20000 




70665 


00677 


32 


20000 


00001 


CO 


70666 


00700 


44 


00701 


00701 


1— t 


70667 


00701 


44 


01023 


00702 


1 



1 


70670 


00702 


16 


01151 


01010 






70671 


00703 


44 


00551 


005 53 


1— 1 

1- 


70672 


00704 


37 


010 c o 


01011 


a. 


70673 


00705 


41 


0077-* 


n 1 f) 4 2 




70674 


00706 


45 


01 If 6 


n^i ^ 




70675 


00707 


37 


01050 


00714 




70676 


00710 


76 


o^ooo 


0126 6 




70677 


00711 


76 


lOOO 1 "* 


01^6 



CLEAR 

BCD BIN 



START OF 

IC 007 CARD 
«MJRR0HT:IN£ 



JUMP TO PATCH s CHANGE 
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REPORT ZM | ;9 l_n 

MODEL jQ^ 

DATE 5-28-56 



:0NTR0LLER 6/4/56 





70700 


00712 


76 


10000 


01252 






70701 


00713 


45 


00000 


00721 






7070? 


00714 


3? 


01166 


00000 






70703 


00715 


37 


00713 


01011 






70704 


00716 


41 


01017 


00766 






70705 


00717 


16 


00771 


01017 






70706 


00720 


37 


00713 


00766 






70707 


00721 


15 


01153 


01143 






70710 


00722 


37 


01012 


00706 






70711 


00723 


37 


00765 


00724 






70712 


00724 


55 


00511 


00000 






70713 


00725 


44 


00726 


00727 






70714 


00726 


16 


00555 


00765 


n CHANGE 




70715 


00727 


55 


10000 


00013 






70716 


00730 


51 


01203 


20000 






70717 


00731 


16 


20000 


00753 






70720 


00732 


55 


10000 


00006 






70721 


00733 


51 


01203 


01123 






70722 


00734 


55 


10000 


00006 






70723 


00735 


51 


01203 


01117 






70724 


00736 


55 


10000 


00006 






70725 


00737 


51 


01203 


00777 




•-N 


70726 


00740 


32 


20000 


00016 




CO 

m 

I— 1 


70727 


00741 


35 


01154 


00742 




1 


70730 


00742 


00 


00000 


00 01 




1 





70731 


00743 


37 


00743 


V/ I./ » *r *w 




s 


70732 


00744 


41 


01123 


01137 






70733 


0074? 


37 


01150 


00746 






70734 


00746 


41 


01117 


01140 






70735 


00747 


37 


01144 


00751 






70736 


00750 


37 


01150 


00751 






70737 


00^1 


41 


00777 


01140 
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PAGE IC 010*10 

REPORT Zi: /491-II 

MODEL All 

date 5*28-56 



C0MTR0LLER 6/4/56 

70740 00752 54 0074? 10107 

70741 00753 31 01123 00000 
70742, 00754 32 10000 00000 

70743 no755 7?, 00742 01116 

70744 00756 37 01144 01140 

70745 00757 51 01161 20000 
jnjiif. rsQlf-o 47 00761 ^076? 
70747 00761 13 01116 01116 
70750' 0076? U 01116 01427 
70751 00763 21 00724 01204 
7075? O0764 *> ]. 0076? 01166 

70753 00765 45 00000 01^1? 

70754 00766 11 01153 0^ 7 77 

70755 00767 5 5 0P^ nooOO 

70756 00770 11 0120? 01236 

70757 00771 31 01165 0OQ11 

70760 00772 32 2?°00 nn 03 

70761 00773 44 00774 00 7 75 

70762 00774 3? 01017 ^0000 

70763 00775 46 0" 77 6 oo77? 

70764 00776 31 ?oooo rr;000 

7 0765 00777 *V5 01' , ?3 01223 

70766 01000 21 0^777 /-) 1 ? ^ 



CO 



"O 7 7 6 7 1 n n i 41 np^. ^.o77i 
1 7077 01002 37 01 or-? ol-°03. 



g 70771 01003 5 C 0!?=>2 O^oop 
■"* 7^77? ^1004 37 o 1 on? ^0770 



X ?"77i 



•~ 1 r 



^ r mv,^ oori?6 



f^llL 0]. 006 37 ott^-i ^ 7 7 1 
7077" 010 7 16 1 o i a -> .~ o n 
7 3 7 7 ^ 01010 4 5 o 010/!? 
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MODEL All 
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CONTROLLER 6/4/56 





710C0 


01012 


4 5 


00000 


0^723 




71001 


01013 


36 


20000 


00777 




71002 


01014 


27 


20000 


00670 




71003 


01015 


35 


01166 


01017 




71004 


01016 


35 


01165 


00706 




71005 


01017 


00 


00000 


00011 




71006 


01020 


11 


01170 


01017 




71007 


01021 


75 


10044 


01007 




71010 


01022 


11 


00667 


01223 




71011 


01023 


32 


01163 


00000 




7101? 


01024 


37 


01010 


00703 




71013 


01025 


15 


20000 


01033 




71014 


01026 


32 


20000 


00016 




71015 


01027 


15 


20000 


01067 




71016 


01030 


11 


01162 


01267 




71017 


01031 


11 


01155 


01270 




71020 


01032 


37 


01045 


01033 




71021 


01033 


5 5 


00446 


00000 




71022 


01034 


44 


01035 


01051 




71023 


01035 


37 


01045 


01051 




71024 


01036 


16 


01051 


00777 




71025 


01037 


75 


30003 


01041 


m 

I—I 


71026 


01040 


16 


00710 


01045 


t 

1 


71027 


01041 


37 


01010 


01044 


o 
o 
o 


71030 


0104? 


75 


20003 


01044 


r- 


71031 


01043 


23 


01045 


0T166 


X 

a, 


71032 


01044 


16 


01014 


00000 




71033 


01045 


77 


00000 


01253 




71034 


01046 


77 


10000 


01??3 




71035 


01047 


77 


10000 


01237 




71036 


01050 


45 


00000 


00710 




71037 


01051 


5 5 


10000 


00013 



□ CHARGE 



CLEAR IMAGE 

ONLY n CHANGE 
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S*N D f GC CALIFORNIA PAGE JQ 010~l2 

REPORT Zli U91-H 

MODEL JQJ 

date 5-28-56 



CONTROLLER 6/4/56 

5 1 1 2 ^ 3 r 

n 2 2 o C '^ "■ 

? r 01157 C'C^O 

11 0^"* »: ;-7 ?" > 

a 4 mir 01^7 

16 m?l 0\\7t 

3 7 n i ] "- ] ^-nfi 

41 ril">3 on?* 

°] ^lir ^ori7 

?5 O 1 16 O106'* 

7,7 777"7 77530 

31 01204 000?? 

73 or>742 100-^0 

1° 00120 01123 

M 01123 00047 

71057 01071 32 10000 OOOOO 

71050 01072 7-* <UC64 ?<^^ 

71061 01073 35 20000 C1064 

71062 01074 37 01131 0107 C 

71063 01075 41 01117 Oil"? 

71064 01076 16 OH*? 01H1 
^71065 01077 41 00777 01113 
§71066 01100 41 00777 01 132 



71040 


01052 


71041 


1 r 3 


71042 


1 r 4 


71C43 


1 c 5 


71044 


01056 


71C4 C 


010 57 


~!0*6 


0] ~>60 


71047 


1 * 1 


71050 


01062 


71051 


01063 


71052 


01064 


71053 


01065 


71054 


01066 


71055 


01067 


71056 


01070 



L 71067 01101 15 01067 ^ 10* 



§71070 01102 21 01033 01204 

o 

£71071 01103 21 01067 01204 

g 71072 01104 16 01O45 0H31 

71073 01105 33 01204 OOOno 

71074 01106 55 Cm 7 00000 

71075 01107 44 01122 01124 

71076 OHIO 27 0113£ 01060 
71C7 01111 43 01117 01121 
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711O0 


01112 


45 


0^000 


01124 




71101 


01113 


?1 


01211 


00000 




71102 


01114 


35 


01270 


01116 




71103 


01115 


35 


01164 


01117 




71104 


01116 


27 


01244 


01267 




71105 


01117 


00 


00000 


00 




71106 


01120 


33 


01"10 


00000 




71107 


01121 


37 


01136 


0U22 




71110 


01122 


35 


01270 


01123 




71111 


01123 


27 


012^5 


01267 




71112 


01124 


c ,5 


om? 


0004? 




71113 


01125 


44 


0U26 


01131 




71114 


01126 


21 


01270 


01207 




71115 


01127 


4 2 


01156 


01131 




71116 


01130 


55 


01267 


00010 




71117 


01131 


45 


00000 


01036 




71120 


01132 


31 


01064 


00002 




71121 


0U33 


32 


01064 


ooool 




71172 


01134 


11 


20000 


01064 




71123 


01135 


34 


20000 


00063 




71124 


01136 


47 


01121 


0112? 




71123 


01137 


16 


00743 


01144 


co 

ID 


71126 


01140 


41 


01017 


01143 


«— « 
1 


71127 


01141 


21 


01143 


01204 


O 


71130 


01142 


16 


CU30 


01017 


O 

r-l 


71131 


01143 


55 


01212 


00004 


>< 


71132 


01144 


37 


01144 


01145 


cu 


71133 


01145 


M 


^n->3 


00002 




71134 


01146 


32 


01123 


00001 




71135 


01147 


52 


01206 


01123 




71136 


01150 


45 


00000 


00746 




71137 


01151 


00 


00000 


01050 
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71140 


01152 


00 


0OOC0 


01100 




71141 


01153 


? c 


01212 


01212 




71142 


01154 


11 


01166 


00742 




71143 


01155 


2 7 


01225 


01267 




71144 


01156 


27 


01253 


01267 




71145 


01157 


31 


01123 


000^3 




71146 


01160 


11 


01167 


01064 




71147 


01161 


00 


mono 


^r>014 




71150 


01162 


40 


00000 


00 00 




71151 


01163 


00 


00000 


00*02 




71152 


01164 


00 


00005 


°oooo 




71153 


01165 


5 4 


n^000 


n O 




71154 


01166 


00 


00000 


00*01 




71155 


01167 


00 


00000 


00*01 




71156 


01170 


00 


00000 


00*12 




71157 


01171 


00 


00000 


00144 




71160 


01172 


00 


00000 


01750 




71161 


01173 


00 


00000 


23420 




71162 


01174 


00 


00003 


03240 


'— N 


71163 


01175 


00 


00036 


41100 


CO 
«— 1 


71164 


01176 


00 


00461 


13200 


V 

1 


71165 


01177 


00 


05753 


60400 


1 
O 
O 


71166 


01200 


00. 


73465 


4 C 000 


•— < 


71167 


01201 


11 


24027 


62000 




71170 


01202 


^0 


00000 


00*03 




71171 


01203 


00 


00000 


00077 




71172 


01204 


00 


00001 


00000 




71173 


01205 


00 


00001 


00001 




71174 


01206 


00 


00000 


A O17 




71175 


01207 


00 


00014 


00000 




71176 


01210 


00 


n 002 


00000 




71177 


01211 


00 


00003 


00000 
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71200 01212 00 00000 0* * 

71201 01213 00 00000 00 
712^2 01214 00 onnno r»n *• 

71203 01215 00 000^0 00 * 

71204 01216 00 oonoo n 

71205 01217 00 ^0000 or. n 
712 A 6 n l?20 00 oonoo 
71207 01221 00 00000 * 

71210 01222 00 00000 00 * 

71211 ^1223 HO O^O^O # 



BINARY 



CODED 



DECIMAL n IM 
C MM ADJ'.'^TER 
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l 

O 
l 

o 
o 



UIPACIED FLQ4TI10 POUT CAM) READ 

This routine reads up to five deoimal floating point numbers from cards and 
storos thorn consecutively i» unpacked form in olthor SS or IfD. 

By option the axpoaents may be ignored and the Mantissas treated and stored 
conseoutlTely as integers. 

Drum address 721*36 - 72751 **•• 
Driver 721*00 - 72U35 i«o« 
lumber of instructions 260 octal 
lumber of constants 5b ootal 
Hunker of temporaries 1*6 octal 
B8 address 01000 - OI56I inc. 
CCWMAID SBQIOTCIi 

The subroutine is coded to start in call 01000 and is entered by tbs read 
sequence 9 

37 01001 01002 
AB UUUUU YvTVT 
in esse of failure P A % 01000 will jump to last 37 read connand for repeat, 
It is also with driver to use the sequence 
37 721*00 721*01 

ab uuuuu tvtnnr 

uhieh will store ES in 71*001 - 79777 inc., and raster e after use. With this 
driver sequence in Case of failure PU 72**3© will restore ES and come to a 
56 stop - release will then repeat the last read command. 

Io prim* commends are included. 17 00000 72**33 will prime one read card. 
* h, 5» or 7, do not print sum 

any other number, print sum 
B k, 5# or 7, treat mantissas as consecutive integers 
_ . , 9-345 



ANALYSIS 

prepared by l. W. Barton 

CHECKED BY 
REVISED BY 
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:X •""'■'.. " f AEi> 1\ -. V^ 
any other number, normal chesting point* 

Uuutiu Address for storage of the first data word* 

VYWV Number of floating point numbers to be read or with option number 
of mantissas stored as integers* 
CARD FORM COLtftflrSt 

1 punch in 12 row flag for exit 1-5 otherwise not used by routine. 
6, 21, 36, 51# 66 decimal point, punched in card not used by routine. 
7-l^» 22-31, 37-1*6, 52-61, 67-76 ten decimal digit mantissa 
17. 32, hi, 62, 77 «if* of mantissa 

A punch in any row except or 12 will read as negative, 
" 18-19, 33-3^, U8-J.9. 6 3-&i, 78-79 

Exponent (power of ten) range -99 to 99 
20 , 35, 50 , 65, 80 slfji of exponent 

A pinch in any row except sero or 12 will read as negative. 
Rounding at all operations occurs but ^nly nine decimal digit 
accuracy may be assumed* 
If the mantissa is sero the exponent will be stored unchanged in octal 
form* 

A synthetic sum may be printed for each series of cards characteristic 
for t at series* 

A 12 punch in re* 1 will override the normal count and cause exit with 
the end of that card. In that case cell 013*42 will be negative (with driver 
SS restoration will read over 613I&) 

The subroutine must 60 opersted in ES but will store numbers addressed 
to E6 or MD as read in* 



FMM 1*t«<-4 



TF5W 
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UNPACKED FLOAriNG pniNT CARD READ 



10 



7 400 
7 401 
7 402 
72403 
72404 
72405 
72406 
72407 
72410 
72411 
72412 
72413 
72414 
72415 
72416 
72417 
72420 
72421 
72422 
72423 
72424 
72425 
72426 
72427 



i 

o 
i 

o 

§ 72430 



x 

a, 



72431 
72432 
72433 
72434 
72435 
72436 
72437 



00742 
00743 
00744 
00745 
00746 
00747 
00750 
00751 
00752 
00753 
00754 
00755 
00756 
00757 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 
00770 
00771 
00772 
00773 
00774 
00775 
00776 
00777 
01006 
01001 



56 00000 
75 31777 
11 00001 
75 30352 
11 72400 
11 00742 

36 01264 
35 01305 
16 20000 
55 00742 
42 00775 
45 00000 
32 00776 
55 20000 

37 00760 
16 20000 
11 00777 
71 0U64 
55 20000 
37 00760 
55 20000 
37 01001 
75 31777 
11 74001 
75 31777 
11 74001 
30 00000 
02 00000 
74 00000 
11 00000 
30 00000 
45 00000 



30000 
72403 
74001 
00747 
00742 
20000 
72432 
20000 
00770 
20025 
00756 
00757 
00000 
00017 
00761 
00763 
01024 
30000 
00006 
00754 
00017 
01004 
30000 
00001 
72432 
00001 
00000 
00104 

oo.^oo 
ooooo 

00000 
30000 



EXIT 
STORE 

es 

ROUTINE 

TO ES 
SET 

REPEAT 
SET 

EXIT 
TEST FOR 

ES 
ADDRESSES 
ADDRESS MODIFICATION 



SET ACQUISITION 
ERASE INSTRUCTION 
ACQUIRE CONTROL WORD 



IP SIBRPITOME 
RESTORE E S 

AND EXIT 
RESTORE E 5 

AND 
REPEAT 



REPEA' 
EXIT 
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72440 


01002 


16 


01001 


01003 






72441 


01003 


71 


01264 


30000 


ACQUIRE CONTROL WORD 




72442 


01004 


13 


20000 


01352 


PRINT SUM FLAG 




72443 


01005 


11 


01263 


01314 X 


CLEAR 




72444 


01006 


11 


01263 


01315 


CELLS 




72445 


01007 


16 


20000 


01314 


NUMBER OF WORDS N 




72446 


01010 


55 


20000 


00003 






72447 


01011 


13 


20000 


01351 


READ AS INTEGER FLAG 




72450 


01012 


31 


01255 


00000 


SET FINAL 




72451 


01013 


35 


01277 


01227 


TRANSFER 




72452 


01014 


11 


01305 


01356 


SET TRANSFER 




72453 


01015 


11 


01265 


01357 


STEPS 




724 54 


01016 


44 


01017 


01022 






72455 


01017 


23 


01227 


01313 


MODIFICATINNS 




72456 


01020 


11 


01264 


01356 


FOR INTEGER 




72457 


01Q2X 


23 


01357 


01261 


STORAGE 




72460 


01022 


55 


10000 


00021 


SET DATA 




72461 


01023 


16 


10000 


01230 


STORAGE 




72462 


01024 


21 


01001 


01264 


SET EXtT 




72463 


01025 


36 


01305 


01000 


SET REPEAT 




72464 


01026 


23 


01314 


01264 


N-l 


1 


72465 


01027 


46 


01001 


01030 


EXIT . IF N 



1 




72466 


01030 


41 


01352 


01032 


SUM TEST 





<— 1 


72467 


01031 


61 


00000 


01303 


CARRIAGE RETURN 


>< 


7247Q 


01032 


17 


00000 


01300 


READ AND PICK CARC 


1—4 


72471 


01033 


11 


01260 


01350 


LINE DIGIT 9 




72472 


01034 


16 


01256 


01224 


SET TEMPORARY STORAGE 




72473 


01035 


75 


10011 


01037 


CLEAR 




72474 


01036 


11 


01263 


01316 


MATRIX 




72475 


01037 


76 


00000 


01361 






72476 


01040 


76 


10000 


10000 






72477 


01041 


76 


10000 


01360 
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72500 


01042 


37 


01042 


01043 








72501 


01043 


54 


01361 


00034 








72502 


01044 


11 


01257 


01054 


SET 1ST STORAGE 






72503 


01045 


11 


01304 


01327 


SET INDEX 3 






72504 


01046 


31 


01306 


00024 


2 EXP 35 






72505 


01047 


32 


01263 


00004 


SHIFT 4 






72506 


01050 


44 


01051 


01052 


TEST BIT 






72507 


01051 


32 


01350 


ooooo 


ADD LINE DIGIT 






72510 


01052 


46 


01053 


01047 


TEST DIGITS 9 






72511 


01053 


31 


20000 


ooooo 


CLEAR A LEFT 






72512 


01054 


30 


00000 


ooooo 


STORE MATRIX WORD 






72513 


01055 


21 


01054 


01307 


STEP STORAGE 






72514 


01056 


41 


01327 


01046 


4 TIMES 






72515 


01057 


37 


01057 


01060 








72516 


01060 


11 


01360 


10000 








72517 


010*61 


37 


01057 


01045 








72520 


01062 


11 


01361 


10000 








72521 


01063 


37 


01057 


01046 








72522 


01064 


37 


01064 


01065 








72523 


01065 


23 


01350 


01264 


REDUCE LINE DIGIT. 




lO 


72524 


01066 


46 


01067 


01037 


TEST FOR 11 ROW 




1 


72525 


01067 


11 


01564 


01350 






o 
1 

o 


72526 


01070 


37 


01064 


01037 


11 ROW 




o 

1— 1 


72527 


01071 


37 


01042 


01037 


12 ROW* DUMMY 




X 


72530 


01072 


44 


01073 


01075 


TEST EXIT FLAG 




a, 


72531 


01073 


11 


01302 


01314 


OVERRIDE INDEX 






72532 


01074 


11 


01255 


01350 


SET FLA<3 






72533 


01075 


31 


01314 


00000 


N-l REMAINDER 






72534 


01076 


42 


01261 


01100 


TEST LAST CARD 






72535 


01077 


17 


00000 


01300 


READ AMD PICK CARD 






72536 


onoo 


11 


01302 


01332 


SET INDEX FOR WORD CHAf 


IGl 




72537 


01101 


15 


01257 


01123 


SET FOR 1ST EXTRACTION 
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72540 


01X02 


55 


01316 


00024 


SWfFT FOR I DENT NUMBER 


t2541 


01103 


11 


01302 


01347 


SET FOR $ DATA WORDS 


72342 


01104 


31 


01304 


00000 


TEST FOR 


72543 


01105 


42 


01314 


0111$ 


LESS THAN 


72544 


01106 


11 


01314 


01347 


5 WORDS 


72545 


01107 


31 


01314 


000 1? 


N-l 


72546 


OHIO 


35 


01306 


100OO 


TEST FOR 


■ 72547 


01111 


41 


01351 


01115 


INTEGER 


72550 


01112 


55 


10000 


00001 


OPTION 


72551 


01113 


31 


01255 


00000 


SET SMALLER 


72552 


01114 


35 


10000 


01227 


STORAGE 


72553 


01115 


37 


01124 


01120 


SPACE FOR PERIOD 


72554 


0H16 


11 


01260 


01331 


SET TALLY 9 


72555 


01117 


11 


01263 


01327 


CLEAR 


72556 


01120 


41 


01332 


01123 


TEST TO 


72557 


01121 


21 


01123 


01306 


CHANGE MATRIX 


72560 


01122 


11 


01262 


01332 


WORD 


72561 


01123 


55 


30000 


00004 


PSSITION DtGlT 


72$62 


01124 


37 


01124 


01125 




^j« 72563 


01125 


31 


01327 


00002 


N X 10 


3 72.564 
1 


01126 


32 


01327 


00001 


ADD 


°t 72565 



01127 


52 


01301 


01327 


DIGIT 


§ 72566 


01130 


41 


01331 


01120 


TEST N COMPLETE 


*- 72567 


01131 


11 


01327 


01334 


SET EXPONENT FOR N 3 


°- 72570 


01132 


37 


01124 


01120 


ACQUIRE 


72571 


01133 


51 


01301 


20000 


S.^dPN 


72572 


01134 


11 


01265 


01330 


FLAG 


72573 


01135 


47 


01136 


01140 


TEST SIGN 


72574 


01136 


13 


01327 


01334 


SET EXPONENT FOR N n 


72575 


01137 


13 


01265 


01330 


-FLAG 


72576 


01140 


37 


01140 


01141 




72577 


01141 


11 


01327 


01354 


MANTISSA X 10 ^XP 10 
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72600 


01142 


11 


01330 


01355 


MANTISSA FLAG 




72601 


01143 


11 


01264 


01331 


SET TALLY 




72602 


01144 


37 


01140 


01117 


EXPONENT INFORMATION 




72603 


01145 


H 


01351 


01217 


TEST INTEGER OPTION 




72604 


01146 


11 


01263 


01333 


CLEAR 




72605 


,01147 


31 


01354 


00000 


TEST N 




72606 


01150 


47 


01151 


01223 


FOR 




72607 


01151 


23 


01327 


01330 


EXPONENT 




72610 


01152 


12 


20000 


20000 


ADJUSTMENT 




72611 


01153 


73 


01265 


01353 


TENS DIGIT 




72612 


01154 


31 


20000 


00017 


UNITS DIGIT 




72613 


011*5 


^ 


01254 


om? 


UNITS POWFS 




72614 


01156 


11 


20000 


01251 


OF 10 




72615 


01157 


23 


01334 


01265 


ADJUST EXPONENT 




72616 


01160 


11 


01276 


01327 


10 EXP 10 




72617 


01161 


11 


01310 


01334 


ADJUST AXPONENT 




72620 


01162 


46 


01214 


01250 


SIGN OF EXPONENT 




72621 


01163 


23 


01IU 


omi 


ADJUST EXPONENT 




72622 


01164 


31 


01354 


00000 


H 


TJ1 


72623 


01165 


73 


0132? 


01333 


N ADJUSTMENT 


10 

I— 1 


72624 


01166 


31 


20000 


00043 


FOR NEGATIVE 


1 


72625 


01167 


73 


01327 


10000 


EXPONENT 







72626 


01170 


55 


10000 


00001 


DETERMINE 


1—1 


72627 


01171 


32 


01263 


0000 1 


LAST 


X 


72630 


01172 


42 


0132? 


01174 


BIT 




72631 


01173 


27 


J 0000 


01264 


OF N 




72632 


01174 


31 


10000 


00044 


ASSEMBLE 




72633 


01175 


32 


01S33 


00044 


M 




72634 


01176 


11 


01263 


013M 


CLEAR 




72635 


01177 


74 


20000 


01331 


SCALE FACTOR N 




72636 


01200 


11 


20000 


01354 


STORE N 




72637 


01201 


46 


01202 


0120? 


TEST FOR ROUNDING 
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72640 

72641 

72642 

72643 

72644 

72645 

72646 

72647 

72650 

72651 

72652 

72653 

72654 

72655 

72656 

72657 

72660 

72661 

72662 

72663 

72664 

10 72665 

T 72666 

2 72667 

§ 72670 

x 72671 
a. 

72672 

72673 

72674 

72675 

72676 

72677 



01202 
01203 
01204 
01205 
01206 
01207 
01210 
01211 
01212 
01213 
01214 
01215 
01216 
01217 
01220 
01221 
01222 
01223 
01224 
01225 
01226 
01227 
01230 
01231 
01232 
01233 
01234 
01235 
01236 
01237 
01240 
01241 



21 01354 
43 20000 
32 01263 
11 20000 
21 01334 
31 01331 
42 01303 
23 01334 
?1 01334 
37 01213 
41 01353 
30 00000 
37 01213 
11 01354 
41 01355 
13 01333 
21 01315 
75 30002 
11 01333 
21 01224 
41 01347 

30 00000 
11 01335 
21 01230 
23 01314 
46 01234 
41 01352 

31 01263 
75 00006 

32 0)315 

31 20000 

32 01264 



01264 
01207 
00107 
01354 
01264 

00000 

01212 
01312 
01331 
01214 
01163 
00000 
01163 
01333 
01222 
01333 
01333 
01225 
30000 
01356 
01115 
00000 
30000 
01357 
01261 
01033 
01001 
00000 
01240 
00014 
00030 
00004 



ROUND 

ADJUST FOR 
OVERFLOW 
IF 
NECESSARY 
ADJUST 

SCALE 
FATT0R 

TEST TENS DIGIT 

POWER FOR UNITS DIGIT 

ADJUST FOR UNITS DIGIT 

N 

SIGN OF M 

NEGATIVE 

SUM 

STORE 

TEMPORARY 
STEP STORAGE 
TEST END OF CARD 
FINAL 

STORAGE 
STEP 
TEST FOR 

END 
TEST PRINT SUM 
CLEAR 
SUM 
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72700 


01242 


61 


00000 


200O0 








72701 


01243 


34 


20000 


00000 








72702 


01244 


47 


01241 


oiool 


PRINTING 






72703 


01245 


71 


01354 


01327 


ADJUSTMENT 






72704 


01246 


37 


01213 


01176 


OF N 






72705 


01247 


37 


01247 


01250 


AND 






72706 


01250 


41 


01353 


01245 


EXPONENT 






72707 


01251 


30 


00000 


00000 


TOR 






72710 


0125? 


37 


01247 


01245 


POSITIVE 






72711 


01253 


45 


00000 


01217 


SCAL r ?> 


\CT0R 




72712 


01254 


11 


01264 


01327 


CONSTANTS 






72713 


01255 


75 


30000 


01231 








72714 


01256 


00 


00000 


01335 








72715 


01257 


35 


01516 


01316 








72716 


01260 


00 


00000 


00*11 








'72717 


01261 


00 


00000. 


00005 








72720 


01262 


00 


00000 


00010 








72721 


01263 


00 


00000 


00*0 








72722 


0126-4 


00 


00000 


00001 








72723 


01265 


00 


00000 


00012 








72724 


01266 


00 


00000 


00144 








72725 


01267 


00 


00000 


01750 






1— I 
1 


72726 


01270 


00 


00000 


23420 











72727 


01271 


00 


00003 


03240 








r— < 


72730 


01272 


00 


00036 


41100 








72731 


01273 


00 


00461 


13200 






cu 


72732 


01274 


00 


05753 


60400 








72733 


01275 


00 


73465 


45000 








72734 


01276 


11 


24027 


62000 








72735 


01277 


00 


00012 


00000 








72736 


01300 


00 


00000 


00105 








72737 


01301 


00 


00000 


00017 
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72740 


01302 


00 


00000 


00004 


72741 


01303 


00 


00000 


00045 


72742 


01304 


00 


00000 


00003 


72743 


01305 


00 


00000 


00002 


72744 


01306 


00 


00001 


00000 


72745 


01307 


00 


00001 


00001 


72746 


01310 


-00 


00000 


00043 


72747 


01311 


00 


00000 


00044 


72750 


01312 


00 


00000 


00110 


72751 


01313 


00 


0O00 3 


00000 






I 

o 
o 
o 



a, 
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I 

I 

O 

o 






ARC SIN AND ARC COS, FIXED POIWT CP015 

01000 t Alarm exit 
01001* Exit 
01002 1 Entry- 
Initial Stat*i (A) = H • 2& 

whora Sin-e- * If 
and C©« 4*1 

|h|^ 1 

Final STatat -$.* 35 »(A) 

♦ ' ^ > (Q) 

FOBMDU. UStDt Sariae axpantion about -^ 



-S-ftN* 



t-S 



«»»«< A«M + f 



"« 



2Uw 



W» a U 



Canrargence i« assuned when U < fjk 
Mfcxiwm tlna.f 70*5 millisecond* 
Brumaddrestt 7&6U through 73551 (5U) 10 (66) 8 
Wwfcor of cosnands for Asaeably Modification! (50) 10 (&) Q 
Beat 60 Mill including constant* an* te«9«raries 01066 - 01075 
laoluaiTe, 

Special teats t If I * <* is tat » 

4 i* eat « 3L 
If W > 1 exit .t* Alaran Print Out 



n mu *•**"-*, 
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m*4 


01000 


37 76000 760O2 


ALARM 






73465 


01001 


45 00000 30000 


EXIT 






73466 


01002 


11 01063 10000 


TTA • X*-+ (4) 






T3467 


01003 


47 01004 01001 


N- oT 






73470 


01004 


16 01042 01055 


SET FOR POSITIVE 


RESULT 




73471 


01005 


46 01006 01007 


H NEGATIVE? 






73472 


01006 


16 01024 01055 


SET FOR WEGATIVE 


RESULT 




73473 


01007 


12 20000.010.67 


STORE JN| 






73474 


01010 


31 01064 0064! 


1*2 3 *— . * £A) 






73473 


01011 


42 01067 OlOOO 


|N| > |? — ^ ALARM 




70476 


01012 


33 01064 00103 


-it* 4 * > (A) 






73477 


01013 


72 01067 10000 


(-l+N*-)<2"--*44) 






73300 


01014 


47 r»loi5 0tO30 


Ift-O? 






73501 


01015 


13 20000 01066 


STORE (/-n*).*'*= 


n H 

N -a. 




73302 


01016 


34 20000 00044 








73503 


01017 


13 20000 01073 








73504 


01020 


31 01043 00000 


. X. — * (A) 






73305 


01021 


11 20000 01070 


STORE X; 

Am 




1T3 


73506 


01022 


31 01073 00044 


$.*"-+(*) 




in 
«— 1 


73507 


01023 


3? 01066 O0OO0 






a- 
1 




73510 


01024 


73 01070 20000 


?/x.-» , M 





a- 
1— 1 


73511 


01025 


32 01070 00107 


1(7)^' ^•/*" ^\ 




CL, 


73512 


01026 


11 20000 20000 








73513 


01027 


42 01070 01021 


X. > X, ? 






73514 


01030 


34 01067 00000 


(tfPiF-N).a" 






T3515 


01031 


71 20000 01062 


*/x(N-fi&W* 


= N -2 




73516 


01032 


54 20000 00046 


N*.* 3 * >(R) 
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73317 


01033 


71 


20000 10000 


N *\ a " — >(A) t N *. J*—^( Q) 




73520 


01034 


54 


20000 00046 


STORE N**- J. 3 * 




73521 


01035 


11 


2000U 01066 






73522 


01036 


13 


01065 01067 


D = -1 




73523 


01037 


11 


10000 200O0 


N*.2'» *( A ) 




73524 


01040 


11 


20000 01073 


STORE N*«2** 




73525 


01041 


11 


01063 01072 


ir/* ■ a s * 




73526 


01042 


35 


01072 01072 






73527 


01043 


21 


01067 01064 


D + 2 *■ = X<w>-I 




735^0 


01044 
01045 


35 
35 


01065 01070 
01065 01071 






i -7 -• _? w 

73531 


P+ 1 » Q«2^»+| 




73532 


01046 


71 


01066 01073 


«**• IL-. • a" >(A) 




73533 


01.047 


54 


20000 00046 


N» a - 1/.., ■ 2 3 * 




73534 


01050 


71 


20000 01067 






73535 


01051 


73 


01070 20000 


"-Va-N*'.^-^ 




73536 


01052 


11 


20000 01073 


STORE U^, 




73537 


01053 


73 


01071 20000 


^ t >/A>m-*- 




73540 


01054 


47 


01042 01055 


Wwi * *^m loop 




73541 


01055 


13 


01072 01072 


SWITCH 


to 


73542 


01056 


54 


01072 00107 


-*■ >M 


1 


73543 


01057 


35 


01063 10000 


7T/ L — /"I i» /^ 


o 


f '/2. ** r(Q} 




73544 


01060 


13 


01072 20000 


■e- — *fl) 


a, 


73545 


01061 


45 


00000 01001 


JUMP TO EXIT 




73546 


01062 


64 


53730 31462 


-vr/*-.a" 




73547 


01063 


14 


44176 65210 


*/* • a»* 




73550 


01064 


00 


00000 00o»2 






73551 


01065 


on 


ooooo 00O01 
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LEASE SQUARES POLYNOMIAL APPRO* IMATI 01 

PART I. IHTROIXTCTIOH 

This routine is intended to enable the programmer to approximate a function 

d ... 

y of X independent variables X,,X 2 / • - * x b >' * polynomial P-.^. *-;..,-• -^ x'/x^-X^ 

of degree d if y is known for n+1 sets of the independent variables. The code 

is written for *x s h and d = 2. By treating powers of variables as independent 

variables and making a few modifications in the code it is possible to handle 

approximations for various combinations of X and d (including for example, 

X= 1 and cf = li+). 

PAST II. ANALYSIS 

(*\r 2+, d r 2, and n + i s ^5). Let the known values of y be denoted by 
"V and those of the independent variables by ^X, Ai/%,% It is desired to 
determine the 0, iiK ^ so as to minimise 

(I) I ft-£ *ij Kl (x« xi xfxfj^] 1 r £ d 



* d* 



J>i ff.renti.ting ( 1) with r..,.* to the unkne-n. a. iiKje and e.ttint 

the results to zero yields 

(2) ^ z Z dU C- ( x; Xl X° 3 xZUJ =o 

2 % «U c- ( *; x; xj x;j^ j = o 

2 2- d^. £-( X, X* X3 t^tl ~ O 

which, if simplified becomes 

(3) 'X**, i<*****u;^4L^(*>^^ 



*-t>t*>x' 



to— ji* 






<W;S feV > *>**>*■'■ *i~, %**■'• <£AW • • -*4„.iHt,'?S£\-&tf.*A*L- 



rouM i«i«~-^ 
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I 

o 
o 
c* 



a. 



or (in matrix -vector form) 







The determinant of the system (I4.) is non-singular and symmetric. Thus, 
the problem is completed by solving the non -homogeneous linear system (I4.) by 
Cramer's Method. For the general case the number y of equations in (h) i« 
givenby(5) y = ( Xj i J f /% J ^_ . . . ^ / X + <*-l J ^ 
For the present case ys 15» The Crout routine is used to splve (I4). For 
convenience denote the so-called given matrix in (k) by M, and M without 
summation signs by »». 

FART II. CODIES 

The code is developed by combining a least squares code (called ZXh) 
with existing sub-routines. 2XU includes a "residual" calculation (evaluation 
of (1) for calnulated &ijt<4 ). The following list gives the parts of 
the tape in the order in which they appear on the tape; 
IC 003 FLOATING POINT CARD INPUT (followed by extra seventh level hole). 
MD CI£AR 1*00004+7777 (followed by extra seventh level hole). 
2 I h FIT. 
CI. 005 CRODT 

CA 001 TWO REGISTER FLOATING POINT ARITHMETIC 
IC OGk FLOATING POINT CARD OUTPUT 

The register of the CROUT routine, 77251, indicating the number of equation* 
is set to (17)q - (*5) 10 »nd the exit is modified to jump to the resid *al check 



roMM %»tm—^ 
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of the 2 X h FIT. The ft index register, 50775, f*f the 2Xl routine is set to 
(5^4)0 =■ ('^)in' Th* 1 " 6 i Q * n MS'.l at liiil; upon ooompletion of the generation of 
»• There is anMS*.2 at J4.66 at which point m. has been generated and stored and' 
the routine is ready to enter the CROUT routine. 

PART III IHPUT - OUTPUT 

Input and output is by cards in floating decimal format (five numbers to 
the card). Th<5 input cards contain %f^f Xj ^^ ^ followed by %^%,%*V 
and so on, with a header card punched to start the loading at 5100*. The output 
cards contain five sets of answers & € 'j K i in the order 0000, 1000, 0100, 

0010, 0001, 2000, 1100, 1010, 1001, 0200, 0110 0002, each set followed 

by their differences (see description of CROUT routine) followed by a card 
containing the residual for the last set of answers. 

PART IV, OPSRATIOg 

1. Load service routines. 

2. Load input cards into read hopper. 

3. PT load 2 I k to first extra 7th level hol«. 
h. (PAX) = 300, start H03. 

5. PT load 2Xh to second extra 7th level hole. 

6. MDS to clear J^00004;7777. 

7. PT load remaining portion of 2 X h. 

8. (PAI) = 50376, start 1103. 

The total time for the case V- h d - 2 » 1 I < 
minutes • 
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L r AST SOUAPFS D OLY APPPX 



51001 
51002 



20 00000 00000 1 INTO 
00 00000 00001 STORAGE 






i 

o 

I 

o 
o 
a* 



a, 



50376 
50377 
50400 
50401 
50402 
5040^ 



00376 
00377 
00400 
00401 
00402 
00403 



TRANSFER ROUT IMF 

TO FS 
1 TO FS 



TO FS 



75 30400 00400 
11 50400 00400 
75 30002 00402 
11 51001 01001 
75 30010 00404 
11. 51003 01003 

50404 00404 75 30002 00406 X; TO (27-30) 

50405 00405 11 01003 00027 

50406 00406 75 30002 00410 Xj TO (25-26) 
504*7 00407 11 01003 00025 

50410 00410 37 00201 00203 MULTIPLY 

50411 00411 75 30002 00413 

50412 00412 11 00031 01013 ELEMENT OF m, TO FS 

50413 00413 71 00407 00770 ADVANCE (407 u ) 

50414 00414 71 00412 00041 ADVANCE (417 v ) 

50415 00415 41 00763 00406 4-/ TIMES ? 

50416 00416 71 00405 00770 ADVANCE (405u) 

50417 00417 15 00405 00407 (407 y ) = (405 a ) 
50420 00470 73 00415 00073 DIMINISH (415 u ) Py 1 
50471 00471 41 00771 00404 4 TIMES ? 

50422 00472 75 30002 00424 
^0473 00473 11 51013 01037 
$0424 00474 75 30040 00426 

50475 00425 11 01001 52271 

50476 00476 11 00765 00764 SET LOOP INHF* 
50427 00477 75 30002 00431 ELEMENT OF ROW 1 AS 
50430 00430 11 01 OH3 OO0?^ V'ULTI^LIF' 5 



Y TO FS 

ELEMENTS OP 1ST ROW TO ^FSTDUAL 
CHECK ST0RAG c AREA 



9-361 



CONVA1S - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



LEAST SQUARES POLY APPRX 



CV-156 

PAGE CN 00&-0 

REPORT ZfA 441 "** 

MODEL /J L i- 

DATE 3 _,2 Q - -S~6 






I 

I 

o 
o 
a- 



x 



50431 00431 75 30002 00433 ELEMENTS OF P?w 1 AS 

50432 00432 11 01001 00025 MULTIPLICANDS 

50433 00433 37 00201 00203 MULTIPLY 

50434 00434 75 30002 00436 ELEMENTS OF ROWS 

50435 00435 11 00031 01041 2-15 TO ES 

50436 00436 21 00432 00770 ADVANCE (432 u ) 

50437 00437 21 00435 00041 ADVANCE (435v) 

50440 00440 41 0076* 004*1 ONE ROW OF *~ COM^LFT^n 2 

50441 00441 21 00430 00770 ADVANCE (430a.) 

50442 00*42 15 00766 0043? (432„J =1001 

50443 00443 41 00767 00426 14 ROWS OF *n COMPLETED ? 

50444 00444 56 10000 00445 tq m ACCUMULATION 

50445 00445 75 30002 00447 ACCUMULATE 

50446 00446 11 01001 00025 ELEMENTS 

50447 00447 7? 30002 00451 OF yw 

50450 00450 11 40001 00027 IN AN ES ARFA 

50451 00451 37 00201 00202 PREPARATORY TO 

50452 00452 75 30002 00454 TRANSFER TO 

50453 00453 11 00031 01001 GTVEN 

50454 00454 21 00446 00770 MATRIX 

50455 00455 21 00450 00770 AREA OF 

50456 00456 21 00453 00041 CR0UT 

50457 00457 41 00773 00445 ROUTINE 

50460 00460 75 30740 00462 [Mj TO DRUM 

50461 00461 11 01001 40001 

50462 00462 21 50403 00772 ADVANCE (50403J 

50463 00463 21 50423 0077? ADVANCF (50423m.) 

50464 00464 21 50425 00774 ADVANCE (50425 v ) 

50465 00465 41 00775 50376 ALL POINTS USED ? 

50466 00466 56 20000 77330 TO CROUT 

50760 00760 00 00000 00000 2 

50761 00761 00 00000 00001 X 
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LEAST SQUARES POLY APPRX 





50762 


00762 


00 


00000 


00002 


4 




50763 


00763 


00 


00000 


00003 


R . 




50764 


00764 


00 


ooooo 


noon 


T. 




50765 


00765 


00 


00000 


00017 


C 




50766 


00766 


00 


01001 


ooooo 







50767 


00767 


00 


ooooo 


00015 


N 




50770 


00770 


00 


00002 


ooooo 


5 




50771 


00771 


00 


ooooo 


00003 


T 




50772 


00772 


00 


00012 


ooooo 


A 




50773 


00773 


00 


ooooo 


00357 


N 




50774 


00774 


00 


ooooo 


00040 


T 




50775 


60775 


00 


ooooo 


00054 


S 




55776 




75 


10004 


56000 


CLEAR RESIDUAL 




55777 




11 


00040 


00664 


STORAGE REGISTERS 




56000 




75 


30060 


00610 


TRANSFER RESIDUAL CHECK 




56001 




11 


56002 


00602 


ROUTINE TO ES 




56002 


00602 


00 


ooooo 


00054 


RESIDUAL 




56003 


00603 


00 


00040 


ooooo 


CHECK 




56004 


00604 


00 


76500 


ooooo 


CALCU - 




56005 


00605 


00 


OOOOO 


00016 


LATION 




56006 


00606 


00 


00000 


00016 


CONSTANTS 




56007 


00607 


11 


00605 


00606 


SET INDEX 




56010 


00610 


75 


30002 


00612 


POWERS TO 




56011 


00611 


11 


52271 


00027 


(27-30) 




56012 


00612 


75 


30002 


00614 


COEFFICIENTS TO 


-O 


56013 


00613 


11 


76500 


00025 


(25-26) 


f-l 


56014 


00614 


37 


01001 


01003 


MULTIPLY 


1 

1 


56015 


00615 


75 


30002 


00617 


TERMS TO 


o 
o 
o- 


56016 


00616 


11 


00031 


00027 


(?7-30) 


1— t 

i 


56017 


00617 


75 


30002 


00621 


PARTIAL SUM 




56020 


00620 


11 


00664 


00025 


OF POLY # TO (25-26) 




56021 


00621 


37 


01001 


0100? 


ACCUMULATE 
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LEAST SQUARES POLY APPRX 





56022 


00622 


75 


30002 


00624 


STORE PARTIAL SUM 






56023 


00623 


U 


00031 


00664 


OF POLYNOMIAL 






56024 


00624 


21 


00611 


00661 


ADVANCE (611uJ 






56025 


00625 


21 


00613 


00661 


ADVANCE (613m.) 






56026 


00626 


41 


00606 


00610 


POLY, EVALUATED 






56027 


00627 


13 


00664 


00027 


DIFFERENCE 






56030 


00630 


11 


00665 


00030 


BETWEEN 






56031 


00631 


75 


30002 


00633 


APPROXIMATION 






56032 


00632 


11 


52327 


00025 


AMD 






56033 


00633 


37 


01001 


01002 


FUNCTION 






56034 


00634 


75 


30002 


00636 


CALCULATION 






56035 


^0635 


11 


00031 


00027 


OF 






56036 


00636 


75 


30002 


00640 


THE 






56037 


00637 


11 


00031 


00025 


SQUARE 






56040 


00640 


37 


01001 


01003 


OF 






56041 


00641 


75 


30002 


00643 


ONE 






56042 


00642 


11 


00031 


00027 


DIFFERENCE 






56043 


00643 


75 


30002 


00645 


PARTIAL 






56044 


00644 


11 


00666 


00025 


SUM 






56045 


00645 


37 


01001 


01002 


OF 






56046 


00646 


75 


30002 


00650 


THP 






56047 


00647 


11 


00031 


00666 


RESIDUAL 






56050 


00650 


21 


00632 


00603 


ADVANCE (632J 






56051 


00651 


15 


00604 


00613 


(613,,) = 76500 




/"- \ 


56052 


00652 


21 


00611 


00661 


ADVANCE (61U) 






56053 


00653 


75 


10002 


00655 






1 


56054 


00654 


11 


00040 


00664 


CLEAR PARTIAL SUM ST0R# 


REG. 


o 
o 

Ch 


56055 


00655 


41 


00602 


00607 


ALL POINTS USED ? 




56056 


00656 


37 


70440 


70441 


PUNCH 






56057 


00657 


00 


00666 


00001 


RESIDUAL 






56060 


00660 


57 


ooooo 


ooooo 


FINAL STOP 






56061 


00661 


00 


0^002 


ooooo 


INCREMENT 
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1^ 



© 
© 



X 

a. 
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FIXED P0I*T CHARACTROU OUTPUT ROUTWB 

This routine prints number! on the ch&ractron in decimal form, riven 
the binary scale factor. 
Drum address 73032 - 73322 inc. 
DriTer 72770 - 73°31 *»«• 
lumber of instructions « 213 octal 

Constants t $6 octal 

Temporaries t 7 octal 

U address t 01000 - 01277 

COMmD 8BQUMCI 

The subroutine is coded to start in cell 01000 and is entered by the 
sequence t 

57 01000 01000 
n UUUUU TWIT 
If thedrtiw i 8 to be v**A, it is entered by the sequence t 

37 72770 72771 

n tnmuu tvtvt 

The drirer will store SS in 71*001 • 75777 tne. sad restore it after 
«... fit case of failure with drirer sequence, starting with FAX equal 
t. 73022 will stop print, adrano. the film, re.tsre K0, and come to a 
56 stop. Restarting will then repeat the interrupted printing Instruction. 

» is the maxima number of row. from the top *ich will be printed. If 
It is tero or orer 32 it will be set equal to 3& 

The number of columns U k 

TOOTU is the address of the firet data word 

VTTVT is the address of the first parameter word 

^365" 
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PAGE if 001-2 
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MODEL All 
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PARAMETER WORDS 

The parameter words consist of pairs of octal digits from left to 
right corresponding to consecutive data words ♦ If the value of the 
octal digit pair is not greater -ttian octal U3 it is used as a binary 
scale factor for the corresponding data word. If the value is ootal 
77 it serves as a flag to end the parameter words and exit* If it is 
greater than octal W$ and not equal to ootal Tt» E will precede that 
data word whioh will have its binary scale factor set equal to zero* 
Parameter words are not disturbed in use. 
PACT FORMAT 

A title and page number are placed on each page. The title is any 
number of syabols up to i|8. T»o octal digits represent eaeh syabol 
as defined by this table. Any other pair will cause a blank space. 

Second Ootal Digit 
(0) (1) (8) (5) (h) (5) 
First (0) 1 2 3 ^ 3 



Ootal 



Digit 



(1) 6 

(2) C 

(3) . 
(U) - 

(5) V 



7 
D 

J 
P 
V 



6 

X 
K 
Q 
W 



9 
F 

L 
R 
Z 



A 


M 
S 

T 



B 

H 

V 
T 
2 



Cells 01251 - 01*60 (or with driver 73303 - 73312) inclusive are 
used to store the title. The page nmber is storod in cell 012* (and 
by the driver *l so in cell 732L6.) It normally i. read in a. sere and 

advanced by one each time. 

a mxi™ of 128 nunber8 p9r ^ i8 possible jn ^ coi(maa ^ ^ 

numb,r S each. The coh™. h.v. an even left .d, preceded by n 9w tiv. 
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1 

O 
I 

o 

o 



signs when required* Leading zeros are suppressed, the decimal point is 
printed and the maximum size may reach 11 dibits. Integers over 9,999, 
999*999 are replaced by that value. lumbers with fractional parts are 
rounded. Any column is completed as far as specified before the next is 
started, 
PAGE AITD FILM ADVANCE 

Cell 01213 i* used for grid position in printing and cell 012H+ is 
used for page number (the driver also uses 732/46 and 73^7). Both of 
these are read in £ero and are automatically modified. 

The film is advanced at any time the subroutine is entered with cell 
012li*, P ag. number, equal to zero, le before the first printing. Film 
is also advanced at the end of each page. At the end of each page 
01213 is set equal «ero. This wi U cause a new page to be started when 
further printing is asked for. 

Both 01814 «d 01213 o.n *. ..„ .^ Mro te „,,,. ^ ^^ 
«d/„r . « p.g.. nu .dv«c. .l, rtll oeeup lf th . iMtl . uotlon 

17 00000 OMU <- with driv *r 1 7 00000 73273 ) i. u..d. m . , heuld „. 
.»cuf d twlee , t «,. TOd of . probleB ^ ^^ ^ ^ ^ u ^ ^ 
frames. 

w~ mU 0*13 u ci w . d or th . end of . ^ u rMched ^ 
-c..^ 37 comMi Mqu9ac . ^ iwt priatiag ^ ^ 

fisme page. 

With the driver, addition of 72032 to anv ah— »» „ 

i*v2c xo any above SS address will 

give the corresponding *D address. 



rou* M«s~4 
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TIKE© 



Between succeeding pages ^ seconds occurs as the film advances (and with 
the developing camera 2.seconds for development). If there is less than 2j 
seconds computing time per page, a delay may hold up the computer. (These times 
are approximate and subject to change). 
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CHARACTRON FIXED POINT WRITE 





72770 


00736 


67 


00001 


30000 








7 771 


00737 


75 


31777 


72773 


ENTRANCE MD DRIVER 






7 772 


00740 


11 


00001 


74001 


STORE ES 






7 773 


00741 


75 


30333 


00743 


ROUTINE 






7 774 


00742 


11 


72770 


00736 


TO E5 






7 775 


00743 


16 


00736 


00766 


SET 






72776 


00744 


21 


00766 


01216 


EXIT 






72777 


00745 


55 


00736 


20025 


TEST 






73000 


00746 


4* 


00751 


00750 


FOR 






73001 


00747 


45 


00000 


00751 


ES 






73002 


00750 


32 


00776 


00000 


A0DRESS 






73003 


00751 


55 


20000 


00017 


ADJUSTMENT 






73004 


00752 


37 


00752 


00753 








73005 


00753 


16 


20000 


00757 


SET ACQUISITION 






73006 


00754 


11 


00736 


73026 


SET REPEAT 






73007 


00755 


11 


00777 


01017 


ERASE INST 






73010 


00756 


16 


00775 


0117? 


SET FXIT 






73011 


00757 


71 


01216 


30000 


CONTROL WORD 






73012 


00760 


55 


20000 


00006 


ADJUST 






73013 


00761 


37 


00752 


00746 


ES 






73014 


00762 


37 


00752 


00746 


ADDRESSES 






73015 


00763 


45 


00000 


01001 


SO ROUTINE 






73016 


00764 


11 


01213 


73245 


RESTORE GRID NUMBER f 


RETURN 


1 


73017 


00765 


11 


01214 


73246 


RESTORE PAGE NUMPER 




a* 

1 




73020 


00766 


75 


31777 


30000 


RESTORE 







■— 1 


73021 


00767 


11 


74001 


00001 


£*$• 






73022 


00770 


17 


00000 


73273 


ADVANCE FILM 




a, 


73023 


00771 


75 


31777 


7302S 


RESTORE 






73024 


00772 


11 


74001 


00001 


ES 






73025 


00773 


23 


73026 


73031 








73026 


00774 


30 


00000 


00000 


REPEAT 






73027 


00775 


02 


00000 


00764 
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CTTAPACTP.OH FIXED POINT WRITE 





73030 


00776 


74 


00000 


00000 








73031 


00777 


11 


oooot 


oooor 








73032 


01000 


71 


01216 


30000 


ACQUIRE CONTROL WORD 






73033 


01001 


15 


20000 


01055 


ADDRESS OF 1ST DATA WORD 






73034 


01002 


55 


20000 


00006 








73035 


01003 


51 


01231 


20000 


NUMBER OF ROWS 






73036 


01004 


55 


10000 


00011 








73037 


01005 


15 


10000 


01020 


ADDRESS OF 1ST &.W« 






73040 


01006 


47 


01007 


01010 


TEST NUMBER ROWS 






73041 


01007 


42 


01270 


01011 


TEST NUMBER ROWS CREATE'? 


32 




73042 


01010 


31 


01216 


00005 


SET 32 






73043 


01011 


71 


20000 


01234 


CHANGE TO 






73044 


01012 


35 


01216 


01273 


DISTANCE 






73045 


01013 


31 


01214 


00000 


PAGE NUMBERS 






73046 


01014 


47 


01016 


01015 


TEST 






73047 


01015 


17 


00000 


01241 


ADVANCE FILM 






73050 


01016 


21 


olooo 


01216 


SET 






73051 


01017 


16 


20000 


01172 


EXIT 






73052 


01020 


11 


30000 


01275 


STORE 1ST PW 






73053 


01021 


15 


01020 


01102 


TRANSFER IDENTITY 






73054 


01022 


11 


01246 


01274 


SET FOR PW CHANGE 






73055 


01023 


17 


00000 


01237 


FREE RUN PRINT 






73056 


01024 


31 


01213 


00000 


TEST FOR 




1 


73057 


01025 


47 


01046 


01026 


NEW PAGE 




w 

1 
O 

O 


73060 


01026 


15 


01211 


01027 


SET PICKUP FOR TITLE 




i— 1 


73061 


01027 


11 


30000 


10000 


PICKUP 




X 


73062 


01030 


11 


01246 


01271 


SET TALLY 






73063 


01031 


51 


01261 


20000 


EXTRACT FROM Q 






73064 


01032 


55 


10000 


00006 


SHIFT CHARACTERS 






73065 


01033 


32 


01213 


00000 


ADD POSITION 






73066 


01034 


77 


10000 


20000 


PRINT 






73067 


01035 


?\ 


01213 


01233 


SHIFT RIGHT 
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CHARACTROS FIXED POINT 3BITE 



73070 


01036 


41 


01271 


01031 


TEST TALLY 


73071 


01037 


21 


01027 


01244 


ADVANCE PICKUP 


73072 


01040 


42 


01210 


01027 


TEST END 


73073 


01041 


21 


01214 


01216 


ADVANCE PAGE NUMBER 


73074 


01042 


11 


20000 


01272 


TO INTEGER STORAGE 


73075 


01043 


11 


01245 


01271 


TO FRACTIONAL STORAGE 


73076 


01044 


37 


01134 


OHIO 


PRINT PAGE NUMBER 


73077 


01045 


11 


01234 


01213 


SET GRID POSITION 


73100 


01046 


55 


01275 


00006 


STORE SCALE FACTOR 


73101 


01047 


51 


01231 


01277 


TEST FOR 


73102 


01050 


43 


01231 


01171 


EXIT FLAG 


73103 


01051 


42 


01242 


01055 


TEST FOR OVERSIZE 


73104 


01052 


31 


01243 


00000 


E FOR SCALE FACTOR ERROR 


73105 


01053 


11 


01215 


01277 


SET SCALE FACTOR 


73106 


01054 


37 


01205 


01201 


PRINT E 


73107 


01055 


11 


30000 


01271 


ACQUIRE NUM8ER 


73110 


01056 


21 


01055 


01244 


STEP 


73111 


01057 


31 


01207 


00000 


SET BINARY 


73112 


01060 


36 


01277 


01103 


POINT SHIFT 


73113 


01061 


11 


01271 


20000 




S 73114 

i-H 


01062 


46 


01063 


01067 


TEST FOR SIGN 


Y73115 

0^ 


01063 


13 


01271 


01271 


NEGATIVE 


73116 




01064 


31 


01213 


00000 


GRID 


£ 73117 


01065 


32 


01245 


00000 


NEGATIVE SIGN 


x 73120 


01066 


77 


10000 


20000 


PRINT 


73121 


01067 


21 


01213 


01233 


MOVE SIGHT 


73122 


01070 


71 


01277 


01267 


♦2B57 X BSF 


73123 


01071 


32 


01236 


00052 


• 99 


73124 


01072 


11 


20000 


01276 


NUMBER FRACTIONAL DIGITS 


73125 


01073 


31 


20000 


00017 


SHIFT TO U 


73126 


01074 


35 


01212 


01076 


ROUNDING 


73127 


01075 


31 


01262 


00000 


FACTOR 
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CHARACTRON FIXED POIITT WRITE 





73130 


01076 


30 


00000 0000* 


TO 




73131 


01077 


41 


01274 01103 


TEST FOR PW CHANGE 




73132 


01100 


11 


01246 01274 


RESET TALLY 




73133 


01101 


21 


01102 01244 


ADVANCE PW 




73134 


01102 


11 


30000 01275 


NEXT PW 




73135 


01103 


30 


00000 00000 


CENTER BINARY POINT 




73136 


01104 


32 


10000 00000 


ROUND 




73137 


01105 


11 


20000 01271 


STORE FRACTION 




73140 


01106 


34 


20000 00044 






73141 


01107 


11 


20000 01272 


STORE INTEGER 




73142 


OHIO 


75 


20013 01112 


JUMP IF OVERSIZE 




73143 


01111 


42 


01216 01H4 


JUMP IF SI2E OK 




73144 


01112 


U 


01247 01272 


SET FOR MAX. INTEGER 




73145 


01113 


11 


01215 10000 






73146 


01114 


51 


01231 01277 


11-R 




73147 


01115 


50 


01277 10017 


SET 




73150 


01116 


31 


01206 00000 






73151 


01117 


36 


10000 01124 


DIVISION 




73152 


01120 


31 


01217 00000 


10 




73153 


01121 


36 


012T7 01277 


R-l NUMBER INTEGER DIGITS 




73154 


01122 


31 


01272 00044 


REPLACE 




73155 


01123 


32 


01271 00000 


NUMBER 


I 


73156 


01124 


30 


00000 00000 


DIVISOR IN Q 


© 
© 


73157 


01125 


11 


10000 01272 




l-"t 


73160 


01126 


73 


10000 10000 


ANSWER X 2 EXP 35 


a, 


73161 


01127 


55 


10000 00001 


ANSWER X 2 EXP 36 




73162 


01130 


32 


01215 00001 


REMAINDER X 2 




73163 


01131 


42 


01272 01133 


TEST WITH DIVISOR 




73164 


01132 


27 


10000 01216 


ROUND 




73165 


01133 


37 


01203 01204 


PRINT INTEGER 




73166 


01134 


37 


01134 01135 


OPTIONAL FXIT 




73167 


01135 


31 


01250 00000 


PERIOD 
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CHARACTRON FIXED POINT WRITE 





73170 


01136 


32 


01213 


00000 


GRID 




73171 


01137 


77 


10000 


20000 


PRINT PERIOD 




73172 


01140 


21 


012U 


01233 


MOVE RIGHT 




73173 


01141 


11 


01276 


01277 


CHANGE TO FRACTION TALLY 




73174 


01142 


37 


01205 


01204 


PRINT FRACTION 




73175 


01143 


11 


01213 


10000 


GRID 




73176 


01144 


51 


01264 


20000 


MASKED 




73177 


01145 


35 


01234 


01213 


ADVANCE VERTICAL 




73200 


01146 


11 


01263 


10000 


V MASK 




73201 


01147 


51 


01213 


20000 


VERTICAL ADJUSTMENT 




73202 


01150 


42 


01273 


01046 


JUMP IF OK 




73203 


01151 


16 


01234 


012U 


VERTICAL TO START 




73204 


01152 


21 


01213 


01266 


ADVANCE HORIZONTAL 




73205 


01153 


25 


01213 


01277 


HORI20NTAL 




73206 


01154 


31 


01277 


00000 


TO U OF A 




73207 


01155 


42 


01265 


01046 


JUMP IF OK 




73210 


01156 


17 


00000 


01240 


STOP PRINT 




73211 


01157 


11 


01215 


Ot213 


SET FOR NEW PAGE 




73212 


01160 


17 


0O0OO 


01241 


ADVANCE FILM 




73213 


01161 


15 


01046 


01166 


TEST 




73214 


01162 


31 


01274 


00000 


FOR 




7321$ 


01163 


47 


01166 


0U64 






73216 


01164 


15 


01102 


01166 


END 


f-. 


73217 


01165 


21 


01166 


01244 


OF 


10 

1— 1 


73220 


01166 


13 


30000 


10000 




1 

1 


73221 


01167 


51 


01261 


20000 


PAGE 






73222 


01170 


47 


01023 


01172 


EXIT 


I— 1 


73223 


01171 


17 


00000 


01240 


STOP PRINTING 


X! 

a, 


73224 


0117? 


45 


00000 


30000 


EXIT 




73225 


01173 


31 


10000 


00002 


Q X 10 




73226 


01174 


32 


10000 


00001 


TO A 




73227 


01175 


11 


20000 


10000 


REMAINDER. TO A 
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73230 


01176 


34 


20000 


00102 


OVERFLOW TO POSITION 


73231 


01177 


42 


01235 


01201 


TEST FOR 


73232 


01200 


35 


01232 


20000 


ADJUSTMENT 


73233 


01201 


32 


01213 


ooooo 


GRID 


73234 


01202 


77 


10000 


20000 


PRINT DIGIT 


73235 


01203 


21 


01213 


01233 


MOVE TO RIGHT 


73236 


01204 


41 


01277 


01173 


END OF WORD 


73237 


01205 


45 


00000 


30000 


SUB EXIT 


73240 


01206 


55 


01230 


10001 


FOR NUMBER ADJUSTMENT 


73241 


01207 


31 


01271 


00044 


FOR BINARY POINT SHIFT 


73242 


01210 


11 


01261 


ooooo 


FOR PAGE TITLE TEST 


73243 


01211 


00 


01251 


ooooo 




73244 


01212 


73 


01216 


10000 


FOR ROUNDING FACTOR 


73245 


01213 


00 


00000 


00*0 


GRID LOCATION 


73246 


01214 


00 


00000 


00*0 


PAGE NUMBER 


73247 


01215 


00 


00000 


no # 


ZERO 


73250 


01216 


00 


ooooo 


00001 


POWERS 


73251 


01217 


00 


00000 


00012 




_ 73252 


01220 


00 


ooooo 


00144 




fc 73253 


01221 


00 


ooooo 


01750 




t 73254 
a- 


01222 


00 


ooooo 


23420 


OF 


o 73255 

o 


01223 


00 


00003 


03240 




5 73256 


01224 


00 


00036 


41100 




g 73257 


01225 


00 


00461 


13200 




73260 


01226 


00 


05753 


60400 




73261 


01227 


00 


73465 


45000 




73262 


01230 


11 


24027 


62000 


10 


73263 


01231 


00 


ooooo 


00077 


MASK 


73264 


01232 


02 


ooooo 


ooooo 




73265 


01233 


00 


00022 


ooooo 


HORIZONTAL SPACE 


73266 


01234 


00 


ooooo 


00036 


VERTICAL SPACE 


1 2 CO i 


01235 


06 


ooooo 


ooooo 


TEST 



9-374 



CONVA'» - DIVISION OF GENERAL DYNAMICS CORP. 



SAN OIKCO. CALIFORNIA 



CV-157 page ip 001-11 

REPORT 2B 1*91 -II 
MODEL ^11 

DATE 5/1/56 



73270 


01236 


00 


77270 


24366 


• 99 X 2 EX? 30 


73271 


01237 


00 


00000 


05000 


PRINT FREE RUN 


73272 


01240 


00 


00000 


04400 


STOP PRINT 


73273 


01241 


00 


00000 


06000 


ADVANCE FILM 


73274 


01242 


00 


00000 


00044 


36 


73275 


01243 


22 


00000 


00000 


F 


73276 


01244 


00 


0000 i 


00000 




73277 


01245 


40 


00000 


00000 


PRINT NEGATIVE 


73300 


01246 


00 


00000 


00005 




73301 


01247 


11 


24027 


61777 


10 EXP 10 -1 


73302 


01250 


30 


00000 


00010 


PRINT PERIOD 


73303 


01251 


44 


70077 


00770 


CHARACTERS 


73304 


01252 


07 


70077 


00770 




73305 


01253 


07 


70077 


00770 


FOR 


73306 


01254 


35 


00527 


72522 




73307 


01255 


14 


43774 


52501 


PAGE 


73310 


01256 


44 


70077 


00770 




73311 


01257 


0? 


70077 


00770 


TITLE 


73312 


01260 


07 


70077 


00770 


MASK 


73313 


01261 


77 


00000 


00000 




73314 


01262 


37 


77777 


77777 




£ 73315 


01263 


00 


00000 


77777 


MASK 


Y 73316 


01264 


00 


07400 


77777 


MASK 


% 73317 


01265 


00 


02000 


00000 




§ 73320 


01266 


00 


00400 


00000 




^ 73321 


01267 


00 


22221 


64247 


♦2857 X 2 EXP 


* 73322 


01270 


00 


00000 


00041 
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This routine enables one to display a message in Time 3 -Square 
fashion across the monitor scope on the 1103 console, or on paper tape 
from the high speed punch. The routine is provided with program entries 
and e xits f or use as a subroutine,* (HSS) are preserved in the region 
76000-77777 while FLICK operates and are restored upon completion of the 
display* 

Input 

The routine will read a message from paper tape which has been 
punched in flex code directly from a Flexowriter; the routine will also 
display a message which has been previously stored on the drum starting 
at address 50000, In either case, the upper limit on the number of characters 
per message is 2047 10 , A flex code-stop (octal 43) must terminate a 
me s s age o 

The flex-coded characters recognised by FLICK are A thru Z, 
thru 9, minus (-), equality («), plus (+), period (*), and space. 
Space codes are automatically substituted for carriage return and tab 
codes* FLICK ignores all other flex codes, and paper tape leader* 

In addition, a number of other characters are available for 
display* Ihese characters cannot be punched on tape directly from a 
Flexowriter, and hence use of them requires that they be read into the 
computer independently of FLICK* The additional characters and their octal 
codes are as follows: 



„CHARft 


CODE ... 


CHAR. 




CHAR. 


WE 




COM 


X 


131 


€ 


121 


} ( SBISJ> 


100 


«<!fe r ) 


110 


• 


112 


>T 


122 


101 


w - wv « 


111 


• 
• 


113 


« 


123 


2 


102 


< 


132 


? 


114 


( 


124 


3 


103 


> 


133 


t 
• 


115 


) 


125 


4 


104 


> 


134 


J 


116 


C 


126 


5 


105 


& 


135 


X 


117 


3 


127 


6 


106 


& 


136 


TT 


120 


/<888S r > 


130 


7 m 


107 







A bi octal tape of character codes for a desired message may be 
loaded into the computer, one character to a cell starting at address 
50000* This form 
of FLICK routine* 



CO 

in 
■— i 

I 

a- 

o 50000* This form of message input must of course be effected Independently 

o 

I*- 

>< &&pjl 

Each character of the message is displayed in a 5x7 matrix on 
the scope, or on the paper tape. One character moves across the scope 
in approximately 3 seconds, and characters are punched out at the rate 
of 10 per second. 
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Stifle 

The FLICK routine is located in cells 47161 thru 47777. The 
coded message is stored in cells 50000 thru 50000+n, where n is the number 
of characters in the message. Cells 54000 thru 54000+n are used as 
temporary storage, n £2047ip (37770). The FLICK routine is available in 
symbolic coding (RECO) so tnat rearrangement of storage can be readily 
performed. 

Any message remains undisturbed on the drum once it is read In; 
this enables one to redisplay a message as many times as is desired until 
a new message is read in. 



READ 
MESSAGE FROM 


TYPE OF 
DISPLAY 


PAK 
SETTING* 


PROGRAM 
ENTR? 


Flex-coded 
paper tape 


scope 


47324 


37 47312 47316 


Drum 

(50000 thru 
50000+n) 


scope 


47321 


37 47312 47313 


Flex-coded 
paper tape 


punch 


47173 


37 47161 47165 


Drum (50000 
thru 50000+fl) 


punch 


47170 


37 47161 47162 



♦Note ; If only one display is desired, MSI select should be 
turned ON at this point; otherwise the current display will repeat in- 
definitely. Program entry to FLICK gives only one complete message 
display, 

Marjgs. 

1. If an illegal character code is encountered, the computer 
halts on a 56 00077 00163 command, STARTlng will terminate the current 
message and begin display of those characters which up to the stop point 
have been found to be legal ones. 

2, If a flex code-stop (octal 43) is omitted from the end of 
the message, FLICK will continue to read from tape or drum until an 

P illegal code is found (see alarm 1,), When the code-stop is omitted 
x from punched paper tape, the computer may hang up on an Eternal Read 
°* command; in this case Force Stop, set PAK * 00136 and START. The 
message is then automatically terminated and display begins 

A listing of the code in symbolic-relative (for assembly by 
RECO) and octal an<yor a biootal paper tape suitable for reading into the 
1103 may be obtained upon request addressed to: 

Leo B« Kennedy 
Univao Scientific 
Applications Group 






i 

o 
i 

o 
o 
a- 
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CC - A Useful Instruction for Inverted Binary Numbers 

Binary counters and converters will sometimes supply a 
quantity In the inverted binary or gray code. When converting 
from ordinary binary notation to gray code or vice versa, 
the CC - command may be used conveniently. 

Conversion from ordinary to gray code can be done with 
these 2 instructions; 

a I*A x A * 71 Shift ordinary numbers 

1 right and leave in A 

a ♦ 1 CC x A Add to each bit the following 

bit modulo 2 

This takes care of numbers up to 36 bits long. Execution time 
is 228 fp> S ec. The reverse process is not quite so elegant, 
it uses repeated LT and CC. 

Scale up inverted numbers 

Clear cell x 

^ Make a string of n shifted 

J Words 

] Add to each bit all preceding 

J bits modulo 2* 

The size of the number to be converted is n. The execution 
time is (270 ♦ 56n) p. sec. 

Both procedures can be easily adapted to put results in 
other cells. 



a 


SF 


X 


36-n 


a ♦ 1 


LTL 


o 


X 


a * 2 


RPV 


n 


a + k 


a ♦ 3 


LTL 


1 


T 


a * 4 


RPV 


n 


a * 6 


a ♦ 5 


CC 


X 


T 



Robert G. Tantzen, 
? Holloman Air Development Center 



i 
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THE RAMO WOOLDRIDGE CORPORATION 
Los Angeles k^ } California 

ARCTAN 
Specifications 



Identification Tag: 

Type: 

Assembly Routine Spec: 

Storage : 



Entrance and Exit: 

Drum Assignment: 
Machine Time: 
Mode of Operation: 



TNI-0 

Subroutine 

SUB 50277 07214 

58 instructions 

Ik constants in program 

72 words of total program storage used 

k words of temporary storage pool used, 
addresses 00027b through 00032b 

RJ SUBOO SUB01 

The alarm exit is not used. 

640^5h through 6^15^0 

3.* 7 nis average machine time 

Fixed point 



© 



1 

1 



C- 



Coded by: 

Code Checked by: 



t^ Machine Checked by: 



x 

a, 



Approved by: 



P. Johnson 
T. Tack 
M. Elmore 
W. Dixon 



December 3, 195^ 
March 15, 1955 
March 19, 1955 
April 29, 1955 



9-379 



RW-160 

TNI-0 

Pg, 2 of k 

Revised 5 A/5 6 



Description 

This routine computes F(x) , an approximation to the arctangent of 
X, by using a polynomial approximation. It was programmed by Engineering 
Research Associates and was adopted for use at Ramo-Wooldridge. 
Programming Instructions 

Assume the routine is stored at SUBQO, and that X is the number whose 
arctangent is desired. 

1. Place X*2 in the accumulator 

2. Execute RJ SUBOO SUB01 

Control will be returned to the cell immediately following the return Jump 

and F(X)*2 33 will be left in the accumulator. - ?£^F(X) & jf 

2 2 
Mathematical Method and Error Analysis 

The Rand Approximation 

7 
Arctangent X » F(X) =J>^ n X 21 " 1 

i=0 ^" L 

is used. (See Rand Sheet 13.) The accuracy as stated by ERA is 

|Arctangent X - F(X) |^2~ 25 
Machine Checking 

Sixteen values of the argument were tested in the range 

§ -1225 *£x ^1225. * 

o 
o 
cr- 

X 

CU 
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Identification Tag: 

Type: 

Assembly Storage Speci 

^vOrage: 



Drum Assignment: 



GiU Method Subroutine 
Spec if ieat ions 

NUI-3 

Subroutine 

SUB h98d0 07^1^ 

59 instructions, addresses 
0GM0O thru OGfc&O 
1GM0O thru 1GML7 

15 constants in program, addresses 
0GC00 thru OGCllj- 

jh words total program storage, addresses 
0GM00 thru OGJ&O 
1GM0O thru 1GML7 
0GC00 thru OGCl^ 

10 words temporary storage pool used, addresses 
00027b (0GT00) thru OOO^Ob (0GT09) 

Addresses 63230b thru 633inb 



Program Entrances: 
Program Exit: 
Machine Time: 

Mode of Operation: 



sO 



Coded by: 



1 

1 

o 
o 



x Code Checked by: 
Machine Checked by: 
Approved by: 



Addresses OGM02, 0GM03, and 0GM& 

Address 0GM01 

(10. 3 n + 1.9) ms per point average, where n 
equals the number of equations in the system 

Fixed point 



J. Carlson 
R. Douthitt 
M. Elmore 
R. Summers 

M. Elmore 

M» Elmore 

W. Bauer 



June 8, 1955 
July 1, 1955 
July 22, 1955 
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Description 



The GiU Method Subroutine integrates a system of first order, differential 
equations using a step-by- step process. Using the values of the variables at a 
point and the coding for computing the derivative of each of the dependent variables 
at that point, the Gill Method Subroutine produces the coordinates for the next 
point of the solution each time it is entered, 

A special entrance sets up the subroutine for a particular system of equations, 
thus allowing the subroutine to solve concurrently several different systems in the 
same program. 

The independent variable is incremented within the subroutine itself. 

Notation 

The system of equations to be solved is 

dy ± 

3£- = ^ (x, y^ 7 Z > • • • > y n )> (i = 1, 2, . . . , n). 

q. are intermediate values of the calculation (zero initially) 
Ax is the increment of the independent variable x 
h is the binary scaling power of x (i.e. x-2 is in the computer) 
h-1 is the binary scaling power of Ax 
m. is the binary scaling power of y. 



f is the common difference between the scaling power of y. and the scaling 

ay ± 

power of -= — for each i. 



ay ± 



m .- f is the binary scaling power of rr~ 
L = 73 + f - n 



S Programming and Operating Instructions 
I s - 

■g Assign the Gill Method Subroutine to some arbitrary region, say OGMDO. 

In order to solve a given system, the following array of variables, derivatives, 
intermediate values, and parameters should be assigned a region, say OGNOO. 
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OGNOO 
OGNOl 
OGN02 
OGN03 
OGNO^ 

0GKO5 
OGN06 
OGN07 

OGN08 
OGNO? 
OGNIO 



00 0GN05 0GN06 



n-1 
Ax 

V 

J*. 

dx 



dy, 
dx 



scaled 2 



h-1 



scaled 2 

scaled m. - f 
scaled ^ 
initially zero 

scaled m 2 - f 
scaled nu 
initially zero 
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vO 



1 

I 

o 

o 



a. 



ay. 

In addition, the coding for computing -=—- for all i, (i = 1, 2, . . . , n) should 
be assigned a region, say 0DE00. This coding -will use the values in region 0GN00 

to compute all -r-~ as specified by the equations in the system and should place the 

results in the appropriate places in region OGHOO. It should then exit to the Gill 
Method Subroutine with an MJ 00000 OGM05 (see below). 

Assuming the Gill Method Subroutine is in region 0GM00, the three entrances are 
0GMD2, OGM03, and 0GMC&. The exit is 0GMD1. 

The first entrance, 0GM02, is used for setting up the Gill Method Subroutine only 
for the particular system to be solved. It is entered by an RJ command followed 
by a parameter word which specifies the location of the variables, and the location 
of the coding for calculating the derivatives: 

RJ 0GM01 OGM02 
00 0GN00 0DE00 

The second entrance, (XM>3, is the entrance for producing a point of the solution. 
It is entered by an RJ command: RJ 0GM01 OGMO3. Entering using this command 
results in four passes through both the Gill Method Subroutine and the coding 
for computing the derivatives, and leaves in region 0GN00 the new values of the 
variables, the derivatives at those values, and x advanced by ax, ready for the 
next step. 

The third entrance, OGM04, is the entrance from the coding for calculating the 
derivatives and is used on each of the four passes necessary for computing one 
point. As noted above, it is entered by an MJ command in the 0DE00 region: 



MJ 00000 0GM& 
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Mathematical Analysis 

Theory . "A Process for the Step-by-Step" Integration of Differential Equations 
in an Automatic Digital Computing Machine" by S. Gill, published in Cambridge 
Philosophical Society Proceedings, Vol. Vf, Part I, January 1951, should be 
consulted for a detailed analysis of the process on -which the subroutine is 
based. 

Suppose we know the point (X, Y.,, Y~, . . . , Y ) on the curve defined by the 
system of eguations n 

dy 1 

dx~ " f l (x ' y l' y 2> ' * ' ' y n> 

dy 2 

6bT =f 2 (x ' y l' y 2' ' * ' ' y n } 



<3y n 

dx~ " f n (x > y l> y 2' • • • ' y n } 

The Gill Method is a process by which we can find the next point on the curve: 

i.e. the value of y,, y„, . . . , y for x = X + h. 

jl & n 

The process can be better understood if the case where n-1 is first considered. 

We have the point (X,Y) on the curve §^ = f (x.y), and we want to find y at 

dvl 
X + h; i.e. we want k = &y such that ~L I = f (X + h, Y + k). 

J X + h, Y + k 
We derive k by making four approximations and averaging them in a particular way. 



First approximate the curve by a straight line through (X,Y) with the slope 

= f (X,Y), and find a first approximation to k: ' 



o 
i— i 



k = h-f (X,Y) 



Then we travel a fraction m of the way along this line to the point (X + mh, Y + mk ) 



« and find f (X + mh, Y + mk ). 
i 

o This gives us a new straight line through (X + mh, Y + mk ) with slope f (X + mh, 

r* Y + mli ), and we find 
*- o 

2 k ts h f (X + mil, Y + mk o ) 

We now use k and k to find a third point at which f is calculated: (X + nh, 
Y + [n-r]k o + rk^. 9 _ 386 



o 



k 2 = h f (X + nh, Y + [ n~r] k Q + rl^) 
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k = h'f (X + ph, Y + p-s-t k + sk + tk 

L J Q -L & 

The weighted average of k , k , k-, and k is the desired k = 6y: 

O 1 6 3 

s y = y (X + h) -y (x) = c Q k o + c^ + c 2 k 2 + c^ 

where c + c_ + c rt + c- = 1. 
12 3 

For a system of equations, the same four steps given above are made for each 
equation and 

6y i = c o k io + c l k ii + c 2 k i2 + c 3 k i3 ^ ere c o + c l + c 2 + c 3 a 1 ' 
The above process is, for certain values of m, n, p, s, t, c , c.., c_, and c , the 

O J. C ^ 

Runge-Kutta process. The Gill process was derived, with application to machine use 
in mind, by minimizing the number of storage cells required. lF6r the Gill Method 
the above constants are 

m = 1/2 , r = 1 - Yl/2 , c * l/6 

n = 1/2 , s = - VI72 , Cl =(l/3) (1 - ixfl) 

p = 1 , t = 1 + yi/2 , c 2 =(1/3) (1 + Vl/2) 

The Gill process further systematizes the calculation so as to increase the accuracy 
and simplify the coding. 

The Subroutine As used in the Gill Method Subroutine, the process is as follows: 

1st pass: 

Advance x by(l/2)h 

k io = h>f i (x ' y 10' y 20' ' ' ' ' y no ) 

r il ^ 2 Ko " ho 

%1 " ho + 3r il -W2>k to 



a- y,-, = y«„ + r 



I 

o 



il *io il 



§. Calculate f. (x,y_ 1 ,y 2 _, . . . , y ) in programmer's own coding. 



x 2nd pass: 



k n - h f i ( x ' y ii' y 2i' • • • ' » a i ) 

r i2 = (1 - VT72) (k n - q^) 

%2 ° %! + *« ' (1 " VI75) k il 

y i2 = y il + r i2 

Calculate f (x,y 12 ,y 22 > • • • > V-nz 1 in Programmer • s ovn coding^^.., 
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3rd pass: 


Advance x by(l/2')h 

k. 2 = n-^ (x,y 12 ,y 22 , . . . , y n2 ) 

r. 3 = (1 + VI72) (k. 2 - g 12 ) 

\3 = *12 + ^±3 - ( 1+yi /2)k i2 

y i3 = y i2 + r i3 
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Calculate f ± (xyy^y^ , . . . , y ) 


in 


programmer ' s own codi 


4th pass: 









k 13 = h-f. (x,y 13 ,y 23 , . . 
r ±k =(1/6) (k i3 - 2^) 

y i4 = y i3 + r ±k 
Calculate f (x^y-^y^, . 



y n 3 ) 



, y . ) i n programmer's own coding. 



Errors The paper by S. Gill mentioned previously, includes a detailed analysis of 
errors, "both truncation error and round-off error. 

Tiie expression for the truncation error in' Sy is too complicated to give here , but 

its dominating term, the author states, is 



n r 



h' 



•120 



o 

j,k,l,m 



, df. of., •)? P>f. 
. & , 1 , m , i 

J ^T <>y k 3^ 3^ 



where y = x. ? « 1, 
''o ' 



x=X 



vO 



1 

o- 

I 

o 
o 
o 



X 



and the truncation error in Sy. will be approximately this when the second partial 

derivatives are all close to zero. It is probably more useful to say merely that 

5" 
the truncation error is of the order of h . 

The standard deviation in y. -(l/3)q. over one step from all rounding off errors 
is (where f is the quantity mentioned in the section on notation) 



1/6 



7/3^2" 2f + 



(1/16) h J 




u, u = the value of 
one unit in the 
last digit of y. 



Machine Checking 



A driver routine solved two systems of equations both separately and concurrently, 
using the Gill Method Subroutine. The two systems solved are given below to 

indicate accuracy and to serve as ex02rrp3.es. 
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1. Equations 



^2 

dx 



= y. 



= -y-, 



>■ equivalent to the second order equation. 



A 2 

A 2 

dx 



+ y = 0. 
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Ax = .087266^626 == rt/36 = 5 ( 
Initial Conditions 



At x=0, y = and y = 1. 



Solution 
y = sin x 

Accuracy 

In a spot check of the results, the greatest absolute error observed was 

1.5 x 10 , (For x = 3.1^15925696, V-i = .0000015^25. However, sin x - 

.000000084). 

2. Equations 
dx y 2 



dx " y 3 



^3 y 3 + te 2 
dx ~ 



" Equivalent to the third order equation 



x d°y - d y 



vO 



1 

o 
1 

o 
o 



x 
a, 



,3 .2 
dx dx 



= hx. 



x 

AX = .1 

Initial Conditions 

At x = .1, y x = .000025, y 2 =* .001, y = .03 

Solution 



3 6~0 3000~ 



Accuracy 



120,000 



In a spot /-check of the results, the greatest relative error observed was 
3.4 x 10" . (For x - .1999999975, y-, = .000^2^99858. However, the solution 
is actually .000^2500002). 
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D 
D 
D 
D 
D 
D 
D 

2GM0O 
2GM01 
2GM02 
2GM03 
2GM04 
2GM05 
2GM06 
2GM0 7 
2GM08 
2GM09 
2GM10 
2GM11 
2GM12 
2GM13 
2GM14 
26M15 
2GM16 
2GM17 
2GM18 
2GM19 
2GM20 
2GM21 
2GM2.2 
2GM23 
2GM24 
2GM25 
2GM26 
C 2GM27 
qs 2GM2-S 
© 2GM29 
§2GM30 
£2GM3l 
^ 2GM32 
°-2GM33 
2GM34 
2GM35 
2GM36 
2GM37 
2GK38 
2GM39 



>£> 



G?< 
1GM 
26k 
3GM 
CGC 
1GC 
OGT 

00 00000 

Mj 

MJ 

MJ 

TP OGMOO 

QJ 0GH06 

QJ 0GM38 

TP QO0OO 

RA 0GM1O 

RP 30003 

TP 

TU 

TV 

TP 

RP 30003 

TP 

MP 

LA A 

TP A 

MP 0GT05 

MA 0GT06 

LA 

TP 

AT 

AT 

LA 

MA 

LA 

AT 

RA 

RP 

TP 

RA 

RA 

IJ 

MJ 

TU 

TP 

RA 

MJ 



M 

A 

A 

CGTC4 

A 

06T07 

A 

0GT02 

0GT01 

30002 

OGTOi 

0GM15 

0GM31 

0GT08 

OGCOO 

0GM2.1 



r:>4 

306 5 

"-98*30 
/t99 2i 

10 83 

49939 

23 

00000 

1GM00 
0GM36 
QOOOO 
OGM^O 
0GM07 
OGMOO 
OGCOi 
0GM11 
0GTO5 
0GM13 
COM 31 
0GT08 
CGM16 
OGTOC 
CGTOO 

0GT03 
0GTC3 
0GTO2 

38 
0GTO4 
A 
A 

34 
0GTC3 

38 
0GTC2 
CGT04 
GGM32 

OGCOi 
0GC02 
06M14 

OGMlO 
OGM07 





C 2 OOO 


/>*». 
^'.' 


0000-0 


00000 




;>2o*5i 


00 


OOOOG 


QOOOO 




53230 


00 


GOO0C. 


00 COO 




6 3 301 


00 


QOOOO 


00000 




C2073 


00 


00000 


00 000 




63323 


00 


0000-0 


00000 




00027 


00 


00000 


00000 




63230 


00 


00000 


00000 




63231 


45 


0000© 


00000 


TO SET VP 


63232 


45 


00000 


02051 


ENTER 


63233 


45 


00000 


02044 


RE ENTER 


63234 


n 


02000 


10000 


WHAT 


632 35 


44 


02006 


01050 


PASS 


63236 


44 


02046 


0200 7 


STORE CTR 


632 3 7 


11 


10000 


0200C 


UP PASS 


63240 


21 


02012 


02074 


ST0f*E 


63241 


75 


3OO03 


02013 


PASS CONS 


63242 


11 


00000 


00034 


RESET 


63243 


15 


00000 


02017 


ADDRESSES 


63244 


16 


00000 


02037 


RESET M \ 


63245 


11 


00000 


00037 




63246 


75 


30003 


02020 




43247 


li 


00000 


000 2 7 


CALC K 


63250 


71 


00000 


00027 


SHIFT L 


63251 


54 


20000 


00000 


STORE K 


63252 


11 


2QG00 


00032 


AK 


63253 


71 


00034 


6603-2 


A*C 60 


63254 


72 


00035 


00031 




63255 


54 


20000 


00046 


STORE R 


63236 


11 


20000 


000 £3 


2R 


632 57 


35 


20000 


2O0dC 


TP 


63260 


35 


00033 


?0000 




63261 


54 


20000 


00042 


3R CK 


63262 


72 


00036 


00032 


ADD OLD 


63263 


54 


20000 


00046 


EQUALS Q 


63264 


35 


0C031 


00031 


NEW V 


63265 


21 


00030 


00033 


STORE 


63266 


75 


3GO02 


02640 


Y AND 


6326 7 


11 


0G0£0 


60000 

02074 


ADVANCE 


632?0 


21 


020 17 


ADDRESSED 


63271 


21 


0203 7 


626T5 


CYCLE H 


63272 


41 


00037 


02016 




632 73 


45 


00000 


00060 




63274 


15 


02073 


02012 




63275 


11 


02025 


10000 




632th 


2 .1 


00000 


00000 




6327 7 


45 


00000 


02007 
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2GM40 


GJ 


0GM01 


0GM07 






- 




63300 


44 


02001 


02007 


3GMO0 


SP 


0GM01 


00015 










63301 


31 


02001 


00017 


3GM01 


TU 


A 


1GM02 










63302 


15 


20000 


02053 


3GM02 


Tp 




OGTOO 










63303 


11 


00000 


OO027 


3GM03 


TV 


06T00 


0GM35 










63304 


16 


60027 


02043 


3GM04 


TU 


OGTOO 


1GM05 










63305 


15 


00027 


62656 


3GMQ5 


TV 




0GM17 










63306 


16 


00000 


02021 


3GM06 


RA 


OGTOO 


15 










63307 


21 


00027 


00017 


3GM07 


RP 


10003 


1GM09 










63310 


75 


10003 


02062 


3GM08 


TU 


OGTOO 


06M11 










63311 


15 


00027 


02013 


36M69 


RA 


0GM13 


15 










63312 


21 


02015 


00017 


SSMlO 


AT 


15 


A 










63313 


35 


00017 


20000 


3GM11 


TU 


A 


0GM16 










63314 


15 


20000 


02020 


3GM12 


TU 


A 


0GM38 










63315 


15 


20000 


02046 


3GM13 


LQ 


A 


21 










63316 


55 


26000 


00O25 


3GMI4 


TV 





0GM3B 










63317 


16 


16000 


02046 


3GM15 


RA 


0GM38 


15 










63326 


21 


62046 


60017 


3GM16 


RA 


0GM01 


16 










63321 


21 


62061 


00020 


3GM17 


MJ 




0GM01 










63322 


45 


60000 


02001 


1GC0O 




GC 












63323 


00 


62673 


00000 


1GC01 




5 




B 








63324 


00 


00003 


60000 


1GC02 






3 


B 








63325 


00 


00000 


00003 


1GC03 


5 






- 1 


34 


Al SCALE 


34 


63326 


16 


60000 


60000 


1GC04 


-1 








34 


Bl 


34 


63327 


57 


77777 


77777 


1GC05 


-5 






- 1 


34 


CI 


34 


63330 


67 


77777 


77777 


1GC06 


02 


92893 


21881 


- 1 


34 


A2 SCALE 


34 


63331 


04 


53730 


31460 


1GC07 


-2 


92693 


21881 


*• 1 


34 


S2 


34 


63332 


73 


24047 


46317 


1GC08 


-2 


92893 


21881 


-01 


34 


C2 SCALE 


34 


63333 


73 


24047 


46317 


1GC09 


1 


70710 


67812 




34 


A3 


34 


63334 


33 


24647 


46326 


1GC10 


«! 


70710 


67812 




34 


63 


34 


63335 


44 


53730 


31457 


1GC11 


-1 


70710 


67812 




34 


C3 


34 


63336 


44 


53730 


31457 


1GC12 


1 


66690 


66667 


- 1 


34 


A4 


34 


63337 


02 


52525 


25253 


1GC13 


-3 


33333 


33333 


- 1 


34 


B4 


34 


63340 


72 


52525 


25252 


1GC14 


-5 






- 1 


34 


C4 


34 


63341 


67 


77777 


7 7777 
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Pseudo-Random Number Generator Subroutine 

by Harold DahlbecK 



Tlie basic method used in this subroutine was described by D* H. 
Lehmer in "The Annals of the Computation Laboratory of Harvard University", 
Volume XXVI, Proceedings of a Second Symposium of Large-Scale Digital Cal- 
culating Machinery . Harvard University Press, Cambridge, Massachusetts, 1951. 

The method itself requires the following simple form to be used as 
the iteration formula: 



X. + , = CX. (mod p) 



i = i, 2, 3, 



Although this method is considered to be quite optimal in guaranteeing 
both maximum randomness and greatest periodicity of the X., there are considerable 
problems involved in the obtaining of C and p subject tc ihe following conditions: 

1, p should be the largest prime number which can be 
contained in a register. 

2. C must be of the form K where K is required to be a 
primitive root of p and L has to be relatively prime 
to p-1. In addition C should be as large as possible. 
The following two numbers satisfy the above conditions. 

p = 2 35 - 31 = 34,359,738,337 

C = 5 13 = 1,220,703,125 

A subroutine for generating the Xj is given below. The periodicity 
of the Xj will be p - 1 = 2 3 2 - 32 = 34, 359, 738, 336 # Any positive number 
may be used as a starting point for the series. 



1103 Subroutine for Pseudo-Random Numbers 





eiooo 


71 


01777 


01776 


*-"v 


01001 


73 


01775 


10000 


1— 1 


01002 


11 


20000 


01777 


1 


01775 


37 


mmmmmmmmmm 


77741 


o 


01776 


01 


10604 


71625 


o 
1*- 


01777 


00 


00000 


00001 


X 











5l ?* R JL 
(5 13 .Rj) 

A mod p 

2?5 . 31 
5 13 

R. 

l 



A 
mod p 
R, 



9-392 



CO 



I 

i 

o 
o 



1103 LIBRARY SUBROUTINE 

WF-163 
CENTRAL EXCHANGE INDEX: 

TITLE: Line Printer Decimal Output 

ENTRIES IF MORE THAN ONE OR NOT STANDARD: STANDARD: YES x NO 

CODING CHECK: x BY C. S. Fluke 
MACHINE CHECK: x BY C # S. Fluke 
SELF-RESETTING: YES x NO 

1. Initial location of argument: Q =lst address of input: Q -(no. of digits)o 

=(1-92) 10 
Final location of argument: 00011 
Location of the function: paper 

2. ADDRESSES: 

(a) Instructions: 01000 through 01065 

(b) Constants and temporary storage: 01066 through 01134 

(c) Constant pool used: 00040, 00057, 00073, 00074 

(d) Temporary storage pool used: 00010 - 00017 

3. INITIAL SETTING OF X: 

(a) Range on x: 

(b) Scaling of x and f(x): 



c2 (c) Brief description of numerical method: 



4. ACCURACY: Full 100% 

5. ALARM-CONDITIONS FOR CHT-OF-RANGE TEST: For illegal code: 

A R - illegal code; k^ = place in word of input = (1-11 )q 
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A r = address of code word, 



6. SPEED: Line printer limited 



7 MISCELLANY: Program will take parameters defining input, make card image, 
and print one line starting at left most digit. Paper is advanced 
by format switches for col. *1 # 

Input must have information for the number of digits to be 
printed, including codes for spaces,-,., as well as the decimal 
digits. These codes are stored in the input as hexadecimal digits, 
i.e., 4 bits per digit, and are packed 9 digits per machine word, 
going from left to right in adjoining registers. 

The codes can be derived as the immediate result of a preceding 
conversion routine. They are: 
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ted 




8421 binary code 


space 








1111 











0000 


1 








0001 


2 








0010 


3 








0011 


4 








0100 


5 








0101 


6 








0110 


7 








0111 


8 








1000 


9 








1001 


• 


(odd 
(even 


cols.) 
i cols.) 


1 

J 


1010 
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EV PROGRAM CH 007 

1103 PR'XJRAK FOR COMPUTING EIGENVALUES AND 
EIGENVECTORS OF REAL, SYMMETRIC MATRICES 
1. INTRODUCTION! 

This program is designed to determine all rectors y± and all soalars 
X i which together with a given real, symmetric matrix A of order I <; 6L4. 
satisfy the relationship Ay^ = ^y^ • The mathematical technique employed is 
based on the Hes tones -Karush gradient methods • The program performs the Hestenes< 
Iturush near-optimum gradient methodT. 

Any number of the eigenvectors and their associated positive, non- 
sere eigenvalues may be obtained in decreasing sequence with respect to algebraic 
magnitude of eigenvalues. Extremely close eigenvalues and eigenvalues close to 
sero with respeet to the total range of eigenvalues clows convergence and in 
extreme eases prevents convergence* 

The program is made to take advantage of a matrix with large numbers 
of sero elements by representing it in dehydrated form ie. with blocks of sero 
elements replaced by flags indicating the number of seros removed. For larger 
matrices (1+0<I"<6U), this .program becomes more efficient with respect^* 
time of solution and accuracy. 

Ten decimal digits, unpacked floating point number representation is 
used (See CA 001 report ZM 1*91). 
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11. EQUATIONS! 

The basic formuli may be summarised as follow*. Given an approximation 
Xi , define x i+1 byt x i+1 = *i + <*i£i 

where f^ Z Ax^^u(x i )x i 

andyt^x^r x{ Ax^/xjxj (The Rayliegh Quotient) 

and <X t z/S/ljjixi) ->^(f ± )j 0<y3<l 
Wh*a. x has converged to the eigenvector y f yU(x) has converged to the eigenvalue 
X • The convergence to the eigenvalue proceeds twice as fast as convergence 
to the eigenvector* The program uses /3 S»S # but this can be varied easily 
from iteration to iteration. Each eigenvector is obtained by forcing the 
iterate x± to remain in the orthogonal compliment of the subspace spanned by the 
eigenvectors already obtained (a symmetric, real matrix has mutually orthogonal 
eigenvectors). This is accomplished by applying the following orthogonalization 
correcting formula every few iterations, 

i " x i * ^rt r^ 3 A jy j J y j where x i is the ^ th iterate converging to the 
eigenvector y p and y (js0,l, ...,p- 1) are the p mutually orthogonal eigenvectors 
thus far obtained. 

An arbitrary method Of determining convergence is used as f ollows . 
The iterate Xj and the associated Rayliegh quotient yu(x. ) are assumed to have<oon«* 
verged to the eigenvector y and the eigenvalue A respectively with d bits of accuracy 
when mii^ / exponent [(Ax^ J - exponent [(f^jU^ks 1,2,... .,N where (z.) is the 
k th element of the rector Z^« 
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111. PROGRAM CONSTANTS AND TERMINOLOGY 1 










DBSCRIPTIOH 


3YMB-L 


PERMANSNl 


' LOCATION 


TEMPORARY 


Order of matrix 


I 


40005 






00005 


Number of eigenvectors in the 












orthogonal compliment of converging 












Iterate 


B 


40004 






00004 


Number of eigenvectors desired 


T 


40003 






00003 


Bits of accuracy attained 


d 








00012 


Desired bits of accuracy 


T 


40564-40576 


01624-01636 


Vumber of rectors desired in output 


* 








00010 


Number of cells in B8 working storage I- 


40406 






00406 


Pirst rector in ES 


V l 


00420 


to 


00417+2N 




Second vector in ES 


V 2 


00420 + 21 to 00417 + 


M 


Vector in MD 


VMD 


41252 


to 


41451 




Matrix In MD 


AMD 


41452 


to 


53377 




Operands for floating arithmetic 


0P1,0P2 








00025-00030 


Result 


Res. 








00031,00032 


See section VI # H. 


<x index 40247 






God*? 


Counts interatlons 
Counts iterations per accuracy test 
Counts accuracy tests per type out 
Counts iterations per 


Iteration 
index 

Test 40734 
index 
Typing 40561 
index 






00047 
01774 
01621 


orthogenalUatior Orthogonalisatipn 

index 


41035 






OO305 



FORM l»ll-A 



9-398 



CV-164 



ANALYSIS C O N V A I R PAGE CN 007-? 

PREPARED BY Donil Parker Aiivwo«or«MMtDYittiiictcMroMii«i REPORT NO. ZM l i)l 

SAN DIEGO -+>"■* 

CHECKED BY » Charles Swift MODEL All 

revised by Matt Vuletich \ date 6/20/56 



1 

I 

o 
o 
o 



X 

a, 



IV. PROGRAM CHARACTERISTICS 

The program will handle all matrices of order V < (Ju, but there is 
storage space in MD for only storing an undehydrated matrix of order N< 50 ie. 
(H726)g cells capable of storing (U753)q two register floating elements (See 
CA 001 report ZM Ii-91 ) • However, the storage region may be expanded (See 
appendix b»). 

The program as presented is set up to test the accuracy of convergence 
every other iteration, to type the value of d every other accuracy test ie. every 
fourth iteration, to orthogonalite every sixth iteration, to compute a new <x 
every other iteration, and to cycle through three values of /3 (all set equal to 
•8) during iterations. 

Standard subroutines used and included on EV paper tapes. 

CA 001 Two Register Single Pricision Floating Point Arithmetic Package. 

TO 003 Decimal to Two Register Floating Binary Card Input. This has 
been modified to read dehydrated matrices. 

10 00U Floating Point Card Output. This has been assembled and stored at 
76600 O 

TJB 002 Alarm, Octal, and Flexprint Package. 
JSV SUBROUTINES 

W Dump and Restore 

Inner Product 

Dehydrated Matrix-vector Multiplication 

Rayliegh Quotient 

Orthogonal isation 

Y 2 + S7 1 
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FKOQRAM PARTS 1 

Starter. 

Check sum taken and typed. Program is set up for a given order matrix, 
initial eigenvector iterates are stored, the complete contents of the drum 
and ES is stored on Iff, and the eigenvalue and eigenvector region is stored 
on Iff following the complete MD, ES dump. The starter is destroyed when 
computation starts* 
Part I* d is computed, typed, and compared with ?• Part I is stored on 

MD and Is transferred to ES only when needed. 
Part II. Iteration routine. It remains in ES except when orthogonal! sing. 

Part II is restored to ES from MD for each eigenvector. 
•Part III* Computed eigenvector and eigenvalue are stored on MD, program is 
set up for the next eigenvector iteration, final output is con- 
trolled, part III is stored on MD and is transferred to IS only 
when needed. 
Iff COMSOLi Eigenvectors, eigenvalues and inner products of eigenvectors are stored 
on MT. Program, eigenvectors, eigenvalues, and inner products are re- 
stored from MT to MD and ES. This acts as a service routine and is under 
oontrol of the machine operator. 

MT Photo ftsspss After the program is set up for a given matrix, the starter 
dumps MD and ES onto MT #0 and the initial eigenvectors and eigen- 
values region onto MT# and MT# 2. From time to time (about 
every half hour), at the operators discretion, the eigenvectors 
and eigenvalues may be dumped on MT# and |Qf 2. Then in case 
of a failure the whole program and eigenvectors and eigenvalues 
from the last dump may be restored to MD and SS and the problem 
continued from the point of the last MT photo dump. By selecting 
or not selecting sV|2 the eigenvectors and eigenvalue? 'are re- 
stored from either MT# 2 or MT# respectively. Having the 
ro— ,.,«.* 9-400 
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eigenvectors and eigenvalues stored on two MT units reduces the 

possibility of losing the information. 

The HP dumping routine takes three minutes forty seconds to dump 

MD and BS and one minute ten seconds to restore MB and SS. It 

requires (1017)« blocks to store MD and BS nnd fof fe^ 4 k00] ^ 1 { 

I I 1737 J J 8 
blocks to store the eigenvector and eigenvalue region -where [ j 

indicates "the integer part of*. Included in the eigenvector 
and eigenvalue region are stored the inner products (dot products) 
of each eigenvector with itself (These are used in the ortho- 
gonalisation process)* 
EXTERNAL COFTR^LSt There are two basic controls fehat are used during the coiaputa- 
tional part of the program. MS# 2 at 01535 causes a stop before setting 
up for the next eigenvector solution. B + 1 appears in Q and If appears in 
A* By changing (Q) or (A) at this point the eigenvector to be converged 
upon and the number of eigenvectors desired may be changed. MS# 1 at OI70I4. 
in Part I of the program after one or several iterations (depending on the 
value of the Test Index) causes a stop with T in Q ar.d d in A. By changing 
(Q) the desired accuracy T may be altered. If T is changed, the new value 
is typed on the supervisory control typewriter when the computer is re- 
started. 

At an MS£ 3 stop (there are several of them) at 002hl the mantissa of /3 
(exponent z 0) appears in Q and may be altered for the next iteration 
only. 

All other external controls may be found in the operating instructions. 
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V. INPUT - OUTFOT 

IHP0T is performed using the Card Input paper tape which contains IC OO3 
with a change to accomodate reading in the dehydrated matrix. Imput consists 
of the dehydrated matrix punched on cards "by rows, one row immediately follow- 
ing the preooding row. The card format and header card are described in SCC 003* 

Ths BV program may be performed without this Input operation as long as 
tha matrix is stored in single precision floating point form (see CA 001) by 
rows at the address hlk52. 
DEHTERATED MATRIX 1 One lero element is represented as true sero. Several 

Zero elements in sequence (row end interrening or not) are represented as 
a true sero representing the first sero except that the exponent is the 
number of sero elements following the first zero element. See the sample 
problem for an example* 

After 1 eigenvectors have been obtained the program automatically exits to 
the output routine where an MT dump is performed, and all eigenvalues are 
punched in floating decimal form on cards (see IC 001*). When the computer stops, 
a, the number of eigenvectors wanted starting with the last one obtained, is 
inserted, and when the computer is started they are punched in floating decimal 
form on card, in the order in which they were obtained. The computer then exits 
to an MS #2 stop* 

SWERVIS0R7 Cn TO , L rmmim WTm! At ^ ^^ of ^ ^^ ^^ 
the SCT type. the value of E and T. Every fo<tfth Iteration the iteration 
count and d are typed. When T is main*lly changed, the new value of T is 
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typed. When the process has converged (d>T), one more iteration is per- 
formed, iteration count and d are typed, and the first three octal digits 
Of the mantissa and last three octal digits of the exponent of the eigen- 
value are typed* 

Whenever a WT duir.p of eigenvectors and eigenvalues is performed, 
"MT* is typed. 
VI. OPERATING INSTRUCTIONS* 

A* Paper tape start for initial starting of a problem. 

1. It is advisable to clear MD to all seros and put any convenient 
service routines in the 70000 - 77777 part of IfD. 

2. Iff #0, MT #2 should be set to the desired locations. 

3. Matrix Input. (Optional. See section V of this report.) 

Load paper tape, • Card Read IC 003 revised". 
Load matrix deok of cards (with header card) in read hopper. 
MD start 00300* Reads cards, types oheok sum and "done". 
km l*ad main paper tape, *SV*. 

5. MD start at 1*0000 # 

6. At MS #0 stop, 01017 put I x 2°-*(Q)# * x 2°->-(A). 

7. Start. MT dump requires about three minutes forty seconds. Stop 
at MS |o 1161. 

8. Start* Iteration starts. 

B. Output. When S • », computer stops at 01572. 

1* Humber of vectors wanted c »x2° »(Q). 

2. Start. Stop at 01613 after output, and MT dump. 
C# Intermediate MT Dump. 

1. At MS #2 stop 01535 Set 7&30 — >-(PAX) 
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2. Start (MS |2 on). Stops l& #) at 01532. 

3» Start. MS $2 atop 01535* How ready to continue problem or leave 
oomputer to start problem from this point at another time. 
D. Continuation from MT start. 

1. Set Iff #0, m $2 as in step A -2. 

2. Load paper tape *MT Dump and Restore" . 

«tf Mn i ji^ Jon, restore from Iff # 2 

3. MS f2 on. MJ f2\ ff, restore jy^ m $ 

h* MD start at 76370. Stops at MS # 0, 01532. 

5. Start. Stops at MS # 2, 01535 with S * 2° I (Q), » x 2° r (a) 
ready to continue problem. 
B. Intermediate start from MD. 

1. MS #2 on. 

2. MD start at U0000. MS #2 stop 01535 . How ready to continue problem 
from last eigenvector obtained* 

*• Trouble. Trouble can arise from one of two causes, either computer fail- 
ure or operator* s error. Trouble shows up as a computer fault (SCC, MCT, 
ete.) or as a failure to converge as shown on the typewriter output. In 
case of trouble do the following. 

1. Perform step 8. If the last eigenvector obtained cannot be con- 
verged upon again, }hsn perform the next ,tep. 

2. If MT # has not been set back to its erlgit;, back tape (l017) o 

8 

blooks and do step D, emitting substep 1. Otherwise just do step D. 

3. If step D falls (is,MT dump has been destroyed), it may be possible 
to start from paper tape (step A) and instead of dumping the eigen- 
vectors and eigenvalues on MT, restore them. Do step A with MS # 2 
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FORM 1011-A 



and U # 2 on and with (J4I262 ) = 75 50210 7^570 and (76L63) = J7 76U63 

To restore just the eigenvectors and eigenvalues from HT # or 

MT # 2, perform step D with the following changes. 

after substep 1, Advance MT # (1017) o blocks. 

o 

Replace substep h with *MD start at 7&37U w *th 2 #F * 2° in A*. 
If MT # dump is gone, repeat the above steps using MT # 2. 
ALARMS 1 Alarm print (see II 002) at OI565 indicate* S> 1. Start computer 
and at MS0 stop 01&0, 1 - (A) . Correct I an d start. Computer jumps 
to 8 Z & test. Alarm print any plaoe else indicates attempted division 
by tero. 

G. Convergence control. Bits of accuraoy will usually be negative for a 
number of iterations and when positive, they will fluctuate, sometime* 
quite violently. The technique is to stop the iteration process after 
as few iteration* as possible with the most accuracy. This is accom- 
plished using the MS # 1 8 top and changing the desired accuracy to fit 
the case. See the sample typewriter output. 

Bits of accuracy required have been prestored in V. e program (U056U to 
1*0576), six values of T per word in order from right to left. When S 
equals some value, say E ? t and it is desired to go back to improve some 
previously obtained eigenvector ie. when E was equal to E» - S, then to 
return to the case E = E», all eigenvectors from E» - 9 to E» must be 
iterated upon to preserve orthogonal itation. 

H. Optional operations. 

1. when starting from paper tape, MJ # 2 on eliminates storing all ones 
in the eigenvector region as the initial iterates. 

2. MJ # 3 on avoids dumping the program on to Iff, but does not 
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eliminate dumping the eigenvectors and eigenvalues rer-icn on OT # 
and MT # 2, 
3« At MS # 3 atop 0021*1 the mantiasa •£ /3 is ia Q and can be changed by 
altering (Q). 



1* Hostenes, M#R. and tarush, W« A Method of gradients for Calculation of 
Characteristic Roots and Vectors of A Real Symetric Matrix, J. Research 
HBS hi, 5. (1951) HP 2227. 

2. Stein, tf.L» Gradient Methods in the Solution of Systems of Linear Equations 



J. Researoh IBS UB, 6 (195D RP 2330. 
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APPENDIX At History and Operating Experience, 

The eigenvector-eigenvalue problem for large , real, symmetric matrices with 
many- zero elements is necessary for computing the mode shapes and frequencies 
of vibrations of multispar wings. The EV program for this purpose was first 
coded in January , 1955 by Dr. Marvin Stein and Donn Parker, and a preliminary 
report, CI 001 of Report Z M 14-91 , was written in February, 1955. This first 
program has been used to solve problems involving 37 x 37* 35 * 35» 33 x 33, 
59 x 59, 62 x 62 # and 29 x 29 matrices. The program was receded in December, 
1955 by Donn Parker and is presented in this report* 

The matriees we have had experience with have a zero eigenvalue and a large 
negative eigenvalue which made it impossible to use the conjugate gradient 
method to minimise and obtain the smallest eigenvalue first. We are interested 
in only the smallest ten eigenvalues (not including the zero and negative values) 
and their associated eigenvectors, but in order to obtain them we must first 
solve for all the larger values. Investigations are being carried on now to 
fttt$ a better, more direct method. 

ProviAon has been made to skip the storage of the initial iterates all of 
whose elements equal one. If better approximations to the eigenvectors are 
known, they mav be placed in the eigenvector region at the same time as the 
matrix input. 

If the convergence is very slow for a particular eigenvalue, increasing the 
frequency of orthogonal! cation often helps. This may be done by manually 
changing the orthogonalisation index or can be more easily done by lowering 
T so that the convergence is completed with very low accuracy, then fctart 
convergence on the same eigenvector thus starting with the iterate last obtained. 
This often "shakes loose" the iterate from a stagnating convergmce, and it is 
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the result of orthogonal! zing twice without any intermediate iterations* 

Another cause of slow convergence is lack of accuracy of eigenvectors prewiosly 
obtained. Convergence can be improved often by improving the accuracy obtained 
for previously found eigenvectors. 

APFEHMX Bi Listed here are all references in the program to the matrix, eigea- 

Tilue** eigenvectors, and inner products storage areas on the MD. The storage 
assignments for these areas may be changed by altering these references. 
l*li*52 Matrix A Reft U0015, 1+0016 

5&00 y,y 7&42J, 76b25, 76Ltfl 

55600 Eigenvalues 1*1266 

5U000 Eigenvectors i+1250, hl2^2, U1253. 1*1265 
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5 


828 < 


►0000000000 


( 


►0000000000 


4 


►9661205555- 


1 4 


►5254421003 


2 1 


►9406537104- 


3 


904 1 


,1376238604 


5 < 


,2114887918- 


5 4 


►3152509181 


6 4 


►2442203826- 


6 4 


iOOOOOOOOOO 





909 4 


►1030162389 


6 t 


,0000000000 


* 4 


►0000000000 




►0000000000 


4 


►ooocoooooo 





914 4 


►0000000000 


4 


►ooocoooooo 


4 


iOOOOOOOOOO 




►oooooocooo 


4 


►ooocoooooo 





919 4 


►ooooocoooo 


, 


►ooocoooooo 


* 4 


iOOOOOOOOOO 




►oooooocooo 


1 


iOOOOOOOOOO 





924 4 


►0000000000 


4 


►0000000000 


* 1 


,0000000000 




iOOOOOOOOOO 


4 


►OOOOOOCOOO 





929 4 


►oooooocooo 


, 


►0000000000 


4 


►ooocoooooo 




►5240639171- 


5 4 


►5430837130 


4 


1005 « 


►1819402783 


1-4 


,000^000000 


* 4 


►0000000000 




,0000000000 


4 


►*ooooooooo 





1010 1 


►2854295760 


6 4 


►1885468074- 


5. 4 


►1991422306- 


4 4 


►OOOCOOOOOO 


« 


►0000000000 





1015 1 


►2676268826- 


6 « 


,8459686315 


4 1 


►1094800400 


5 4 


►OOOOOOCOOO 


4 


iOOOOOOOOOO 





1020 1 


► 742288809.0 


5 4 


►1989600764- 


5 4 


,0000000000 




►OOOOOOCOOO 


4 


2168340073 


4 


1025 4 


►0000000000 


4 


►0000000000 


# 4 


►0000000000 




►9297632177 


2 4 


iOOOOOOOOOO 





~ 1101 « 


►0000000000 


4 


►0000000000 


4 


►3301825977 


4 4 


►1153271155- 


7 4 


OOOOOOCOOO 





2 1106 4 


►0000000000 


4 


►0000000000 


4 


►OOOCOOOOOO 




►0000000000 


4 


,1885468074- 


5 


I 1111 ■ 


►4391970185 


7 , 


►0000000000 


4 


►ooocoooooo 




►ooocoooooo 


4 


►1887073127 


5 


8 1116 4 


►1917222437- 


7 4 


►oooooocooo 


4 


►ooocoooooo 




iOOOOOOOOOO 


4 


►6536977121 


6 


2 i 12 i « 


►ooooooooco 





►ooocoooooo 


* 1 


,0000000000 




iOOOOOOOOOO 


4 


►OOOOOOCOOO 





>< 1126 4 


►0000000000 


« 


,0000000000 




,0000000000 




►OOOOOOCOOO 


* 4 


►OOOOOOCOOO 





1202 1 


►0000000000 


« 


,1931808165 


3 1 


,0000000000 


4 


,1045721812- 


7 4 


,2273862205 


4 


1207 1 


.0000000000 


4 


►0000000000 


* 4 


iOOOOOOOOOO 




►1991422306- 


4 4 


iOOOOOOOOOO 





1212 4 


►3342415114 


7 « 


,1273862810- 


5 4 


,1956470381 


5 4 


► 112153333*4 


5 4 


►ocoooooooo 





1217 1 


'15.76569586- 


7 1 


►1673271194 


4 1 


0000000000 


4 


►1252089151* 


5 4 


►3665006317 


6 



9-419 



CONVAIt - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



CV-164 

page car 007-26 

REPORT 2K U91 
MODEL All 
DATE 6/20/56 



♦0000000000 

•oooocooooo 
•0000000000 

,0000000000 
•1513472040 7 
.1060695183- 7 
•0000000000 
•1603925406 5 
•0000000000 
•0000000000 
•2142369990 7 
•1099693602- 7 
.0000000000 
•1043693818 5 
•1024655024* 
•26/6268826- 6 
•1042037298 7 
•2533990430- 6 
•0000000000 
#0000000000 ^0 

•0000000000 

•1917222437- 7 
•1988556802 7 
•7969245389 4 
•0000000000 
.0000000000 

•0000000000 

•1576569586- 7 
•1639841941 7 
•2399376310 4 
•0000000000 
•0000000000 
•0000000000 
•1060695183- 7 



•29 x 29 Matrix A" 








•OOOOCOOOOO 


* 


,1247106123- 


5 


,0000000000 


. 


•1764121224 


4 , 


,0000000000 




,0000000000 


• 


•0000000000 


, 


il425800l71 


4 i 


,6737892792- 


6 • 


•0000000000 


< 


,0000000000 




,0000000000 


• 


♦8821830093- 


5 ( 


iOOOOOOOOOO 


< 


,0000000000 


• 


.6620139333 


4 4 


►0000000000 


4 


,0000000000 


♦ 


.0000000000 


< 


►6721400032- 


5 4 


►00O00O0000 


• 


•0000000000 


* 1 


►0000000000 




,0000000000 


• 


.0000000000 


4 


►1050351686 


5 1 


►1629515623- 


6 • 


•0000000000 


< 


►0000000000 




,1956470381 


5 • 


•0000000000 


4 


.0000000000 




,0000000000 


• 


•0000000000 


1 


►0000000000 




,0000000000 


• 


•0000000000 


1 


►5206830094- 


5 4 


►0000000000 


• 


•0000000000 


4 


►0000000000 


4 


,2399646300 


5 • 


•oooooooooo 


< 


►0000000000 




►0000000000 


• 


•1887073127 


5 < 


►1121533334 


5 4 


►0000000000 


• 


•2866537811- 


6 i 


►1427618785 


5 4 


►9775445338- 


4 « 


•1120507474 


6 1 


►0000000000 


* 4 


►0000000000 


» 


•0000000000 


< 


►0000000000 




►5236259731- 


3 • 


•0000000000 


4 


►oopooooooo 




►3481976210 


6 • 


•0000000000 


i 


►0000000000 




►0000000000 


. 


•0000000000 


4 


►0000000000 




►0000000000 


• 


•1112163267- 


6 4 


►3354713188 


5 4 


,3077875222- 


5 • 


•0000000000 


* 4 


►0000000000 




,0000000000 


• 


•0000000000 


# | 


►0000000000 




,0000000000 


* 


•1062027047- 


4 i 


►0000000000 




,3579432551 


6 • 


♦0000000000 


4 


►0000000000 




,1094800400 


5 • 


•1651194109 


4 4 


►0000000000 


4 


►1427618785 


5 • 


•3579762830- 


5. i 


►3668268233 


5 4 


,7618149984 


5 • 


•0000000000 


i 


►6856066033 


5 4 


,0000000000 


• 


•9698398057- 


4 4 


►0000000000 




,0000000000 


. 


•0000000000 


4 


►0000000000 




,3313806204 


6 • 


•0000000000 


4 


►0000000000 




►0000000000 


• 


•8607917470 


4 4 


,9775445338- 


4 4 


►3354713188 


* A 



0000000000 
0000000000 
1855177321 4 
1278862810- 5 
1651194109 4 
5438769491 6 
0000000000 
0000000000 
0000000000 
8821830093- 5 
8607917470 4 
4120597796 6 

0000000000 
0000000000 
0000000000 

0000000000 
8968755097 4 
1221170247- 5 
0000000000 
0000000000 
8459686315 4 
2866537811- 6 
91572Q5648- 6 
0000000000 
0000000000 
0000000000 
00000000.00 
1112163267- 6 
1000440533* 7 
0000000000 
0000000000 
0O000OOO00 
1673271194 4 
3579762830- 5 



9-420 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



CV-164 

PAGE CU 007-27 

REPORT ZM U91 

MODEL All 

DATE 6/20/56 



"29 x 29 Matrix A" 



1818 , 


►1494353793 


7 , 


,7820299122- 


5 , 


iOOOOOOOOOO 


i 


►2472433668 


4 • 


1823 


,7472618142 


4 


,0000000000 


, 


,3140563591 


6 


►0000000000 


♦ 


1828 


,7494316235- 


5 


►0000000000 


* i 


,0000000000 




•0000000000 


« 


1904 


iOCOOOOOOOO 





,0000000000 





,0000000000 




•5834576336 


5 « 


1909 , 


,0000000000 


n 


,000000^000 


* , 


,0000000000 




iOOOOOOOOOO 


• 


1914 , 


,1099693602- 


7 , 


,8968755097 


4 , 


,3077875221- 


5 


►3668268233 


5 • 


1919 i 


il407180846 


7 


,0001)000000 


4 


►0000000000 


* < 


illl7285796 


5 • 


1924 , 


,0000000000 


i 


,0000000000 


< 


,2087724571 


6 


iOOOOOOOOOO 


♦ 


1929 . 


,4184782667- 


5 , 


,0000000000 


< 


,0000000000 




,7200680527- 


4 ♦ 


2005 , 


,1143933398 


, 


,0000000000 


* < 


,0000000000 




iOOOOOOOOOO 


• 


2010 1 


,7422888090 


5 < 


►6536977121 


6 4 


►1252089151- 


5 i 


,0000000000 


• 


2015 , 


,2533990430- 


6 t 


,9157295648- 


6 < 


►7618149984 


5 < 


►0000000000 


* 


2020 , 


,7922590978 


6 1 


,1712443284- 


6 , 


►2251419427 


5 < 


►1407101198- 


5 « 


2023 , 


,0000000000 


i 


,0000000000 


* < 


,0000000000 




►6809209483- 


3 • 


2101 < 


10000000000 


d ( 


,0000000000 


a 


►1930041152 


4 1 


►0000000000 


* 


2106 i 


,0000000000 


, 


►oooooooooo 


4 


,0000000000 




►0000000000 


• 


2111 i 


,0000000000 


1 


,3665006317 


6 , 


►0000000000 




iOOOOOOOOOO 


• 


2116 i 


►7969245389 


4 i 


►1000440533- 


7 4 


►2472433668 


4 1 


►0000000000 


♦ 


2121 , 


,9921300572 


6 1 


,3597784223- 


5 1 


►2599568678 


5 t 


►1275801501- 


6 • 


2126 1 


,0000000000 


< 


►0000000000 


* 4 


►1762507593 


5 < 


►0000000000 


* 


2202 1 


►0000000000 


, 


,0000000000 


* 4 


,0000000000 




►0000000000 


. 


2207 4 


,0000000000 


< 


►0000000000 


* 1 


►O0OOO00000 




►0000000000 


» 


2212 1 


►0000000000 


4 


►5438769491 


6 4 


►0000000000 




►0000000000 


#< 


~ 2217 * 


,2399376310 


4 1 


,1198305783- 


7 4 


,1117285796 


5 4 


►2251419427 


5 • 


2 2222 i 


,1397444025 


7 4 


6496881001- 


5 « 


,3036412342 


4 4 


,6237452968- 


6 • 


± 2227 4 

1 


,0000000000 


i 


►2077971907 


6 1 


,0000000000 




►0000000000 


* 


2303 1 

0* 


.0000000000 


* 


►0000000000 


* 4 


►0000000000 




►0000000000 


# 


£2308 t 


►0000000000 


4 


►0000000000 




►0000000000 




►0000000000 


♦ 


£2313 , 


►0000000000 


4 


►4120597796 


6 4 


►0000000000 




►0000000000 


• 


2318 1 


►7472618142 


4 i 


8141394397- 


6 4 


►1407101198- 


5 4 


►2599568678 


-5 • 


2323 4 


►7628170177 


6 « 


►0000000000 


4 


►6301169950 


4 < 


►3133104375- 


6 ♦ 


2328 4 


►0000000000 


« 


►8380147004 


5 4 


►0000000000 




►0000000000 


. 


2404 1 


oooooooaoo 


< 


►1139380806 


t 


,0000000000 




►0000000000 


•< 


2409, « 


0000000000 


i 


,2168340073 


4 « 


0000000000 




,1247106123- 


3 • 



1198305783- 7 

0000000000 

0000000000 

0000000000 

6620139333 4 

7820299122- 5 
8141394397- 6 

0000000000 
8001611163- 5 

0000000000 

0000000000 
0000000000 
3153213201 5 
0000006000 
3348422218- 1 
1989600764- 5 
1120507474 6 
1712443284- 6 
2162222531 4 
0000000000 
1196194835- 6 
0000000000 
0000000000 
3597784223- 5 
4528849346 4 

0000000000 

1582955618-*.3 
OOOOO00O00 
0000000000 
6496881001- 3 
0000000000 
2103429817- 3 
0000000000 
0000000000 



9-421 



CV-164 page CH 007-28 

REPORT ZM JLl-91 

MODEL All 

DATE 6/20/56 



•29 x 29 Matrix A" 



0000000000 

0000000000 

1351326026 6 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

8684594515 6 

0000000000 

0000000000 

0000000000 

0000000000 

0000000000 

6770817700 6 

0000000000 

1524555205 4 

0000000000 

0000000000 

0000000000 

3498604061 6 

9019303291- 1 

0000000000 

1603925408 5 

7494316235- 5 

0000000000 

3241272409 6 

0000000000 

ooooooooco 

1043693818 5 

4184782667* 5 

0000000000 

7014090267 5 



•1221170247- 


5 4 


►0000000000 




►6856066033 


5 • 


•3153213201 


5 , 


►1275801501- 


6 4 


►3036412342 


4 • 


.6641036020- 


5 , 


.5339020821 


5 4 


►1532483536- 


5 • 


•0000000000 


* 4 


iOOOOOOOOOO 




►0000000000 


• 


♦1478294679 


5 4 


.0000000000 




iOOOOOOOOOO 


• 


♦0000000000 


4 


►0000000000 




►6721400032- 


5 • 


♦0000000000 


i 


►0000000000 




.3140563591 


6 • 


♦2162222531 


4 4 


►6237452971- 


6 4 


►6301189950 


4 • 


•2091887123- 


6 1 


.1293433351 


6 4 


►4142767648- 


6 • 


♦0000000000 




iOOOOOOOOOO 




1 0000000000 


• 


•1216818947 


4 4 


.1083173175 


5 4 


►0000000000 


• 


.0000000000 


* 4 


.0000000000 




.5206830094- 


5 • 


•0000000000 


4 


.0000000000 




►2087724571 


6 • 


•4528849346 


4 4 


►3133104375- 


6 4 


.5339020821 


5 • 


•3261077612- 


6 4 


►1244318960 


5 4 


►1332447094- 


6 • 


•0000000000 


* 4 


.0000000000 




►0000000000 


• 


.2107882001- 


5 4 


►0000000000 




iOOOOOOOOOO 


• 


•0000000000 




►0000000000 




iOOOOOOOOOO 


• 


•0000000000 


* 4 


►0000000000 




.0000000000 


• 


•0006000000 


4 


►1332483536- 


5 4 


►1293433351 


6 • 


•0000000000 


4 


►0000000000 




►0000000000 


• 


•0000QOOOOO 


4 


►1611736022- 


1-4 


►3527649574- 


4 • 


•0000000000 


4 


.9297632177 


2 4 


►0000000000 


• 


•0000000000 


4 


►5236259731- 


3 4 


►0000000000 


• 


•0000000000 


I 


►6809209483- 


3 4 


.1762507593 


5 • 


•2144214568- 


5 4 


.4142767648- 


6 4 


►1244318960 


5 • 


.1202951677- 


5 i 


►0000000000 




►0000000000 


• 


•ooocoooooo 


* 4 


►0000000000 




►4009420664- 


3 • 


•0000000000 


* 1 


iOOOOOOOOOO 




iOOOOOOOOOO 


• 


•0000000000 


4 


iOOOOOOOOOO 




iOOOOOOOOOO 


• 


•0000000000 


4 


►OOCOOOOOOO 




iOOOOOOOOOO 


• 


•8081281290 


4 4 


►1332447094- 


6 < 


iOOOOOOOOOO 


• 


.1221170247- 


5 , 


►0000000000 




►6856066033 


5 • 



0000000000 
0000000000 
2144214568- 5 
0000000000 
0000000000 
0000000000 
0000000000 
6641036020- 5 
8081281290 4 
0000000000 
0000000000 
OOOOOOOOOO 
0000000000 
2091887123-^ 6 
0000000000 
0000000000 
0000000000 

0000000000 

0000000000 
3261077612- 6 

0000000000 

0000000000 

1764121224 4 
9698398037- 4 
2077971907 6 
0000000000 
0000000000 
0000000000 
0000000000 
0000000000 
8380147004 5 
1202951677- 3 
0000000000 



9-422 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 

SAN DIEGO CALIFORNIA 



Ctf-164 
page CH 007-29 

REPORT ZM i|9X 
MODEL All 
DATE 6/20/56 



•29 x 29 Matrix A dehydrate d" 



000505 41452 # H«»d«r oard for input* 
















1 1 


,3139500675 


4 < 


,5048596477- 


H 4 


,6178035335 


4 4 


,6385646884- 


4 4 


►1515033341 


4 


2 < 


►4309664059- 


3 


,1144258462 


3 4 


,0000000000 


* 4 


,9661209555- 


1 


►OOOOOOOOOO 


19 


3 4 


►5048596477- 


4 , 


,1135023727 


5 , 


►2435556348- 


5 ( 


►3472949305 


5 4 


►8239782252- 


4 


4 


i2343888578 


4 i 


,6223256157- 


3 , 


►0000000000 




►5254421003 


2 4 


►0000000000 


19 


5 


,6178035335 


4 4 


,2435556348- 


5 , 


,1420318524 


6 4 


,3699632856- 


6 4 


►1475097189 


6 


6 4 


►4196061721- 


5 i 


,1114095918 


5 , 


,0000000000 


< 


►9406537104- 


3 4 


►5240639171- 


5 


7 


.3301825977 


4 


,1931808165 


3 


•0000000000 


1 4 


.2399646/300 


5 


►0000000000 





8 4 


►1062027047- 


4 , 


,0000000000 


1 < 


►7200680527- 


4 < 


►1930041152 


4 4 


►oooooooooo 


1 


9 4 


►2103429817- 


3 4 


,0000000000 


2 i 


►9019303291- 


1 4 


►oooooooooo 


* 


►6385646884- 


4 


10 1 


,3472949305 


5 j 


►3699632856- 


6 4 


►2012897506 


7 4 


►9757463285- 


6 4 


►6139115388 


6 


11 < 


,1629996030- 


6 i 


,0000000000 


4 


,1376238604 


5 4 


►5430837130 


4 < 


►1153271155- 


7 


12 i 


►OtfOOOOOOOO 


3 4 


,3481976210 


6 4 


,0000000000 


2 4 


►8001611163- 


5 4 


►0000000000 


8 


13 « 


,1515033341 


4 4 


,8239782252- 


4 4 


►1475097189 


6 4 


►9757463285- 


6 4 


►1087084987 


7 


14 1 


,7908157834- 


6 4 


,2528029819 


6 4 


►4172939739- 


4 4 


►2114887918- 


5 4 


►1819402783 


1- 


15 i 


iOOOOOOOOOO 


< 


,1045721312- 


7 < 


,1425800171 


4 4 


►0000000000 


4 


►1024655024- 





16 i 


,0000000000 


4 


►3579432551 


6 < 


►0000000000 


1 4 


►1143933398 


4 


►3348422218- 


1 


17 4 


,0000000000 


1 i 


►1139380806 


1 


►0000000000 


2 4 


,1611736022- 


1-4 


►ooo'ooo-oooo 





18 , 


,4309664059- 


3 4 


►2343388578 


4 1 


►4196061725- 


5 4 


►6139115888 


6 4 


►7908157836- 


6 


19 4 


,2930202641 


5 4 


,1330461241- 


7 , 


►1033342696 


6 4 


►3152509181 


6 4 


►0000000000. 


1 


20 4 


,2273862205 


4 4 


,6737892793- 


6 4 


►1050351686 


5 « 


►oooooooooo 


2 4 


►3313806204 


6 


21 , 

22 , 


,0000000000 
,3527649574- 


2 , 

4 4 


►1196194835- 
►0000000000 


6 4 

1 


►oooooooooo 

►1144258462 


1 4 

3 4 


►1478294679 
.6223256157- 


5 4 

3 4 


►OOOOOOOOOO 
,1114095918 


I 


23 4 


►1629996030- 


6 4 


►2528029819 


6 4 


►1330461241- 


7 4 


►8233909877 


6 4 


►1054048388- 


6 


24 1 


,2442203826- 


6 4 


,0000000000 


2 4 


►1855177321 


4 4 


►1629515823- 


6 1 


►0000000000 


3 


25 , 


►5834576336 


5 , 


►0000000000 


2 4 


►1582955618- 


5 4 


►0000000000 


1 1 


,1216318947 


4 


3 26 , 


,1524355205 


4 4 


,0000000000 


4 


►4009420664- 


3 4 


►oooooooooo 


3 4 


►4172939739- 


4 


~27 4 
0* 


,1033342696 


6 4 


►1054048388- 


6 1 


►6689125411 


6 < 


►oooooooooo 


16 4 


,1083173175 


5 


o28 , 




►2107882001- 


5 1 


►0000000000 


1 4 


►9661205555- 


1 4 


►5254421003 


2 4 


,9406537104- 


3 


^29 4 


,1376238604 


5 , 


,2114387918- 


5 4 


,3152509181 


6 4 


►2442203826- 


6 4 


►0000000000 





x30 4 


►1030162389 


6 1 


,0000000000 


21 1 


5240639171- 


5 4 


,5430837130 


4 4 


1819402783 


1' 


31 4 


►0000000000 


3 4 


,2854295760 


6 4 


1835468074- 


5 4 


,1991422306- 


4 4 


►OOOOOOOOOO 


1 


32 « 


,2676268826- 


6 , 


,8459686315 


4 « 


,1094300400 


5 1 


,0000000000 


1 1 


,7422888090 


5 


33 , 


,1989600764- 


5 < 


►0000000000 


1 4 


2168340073 


4 4 


oooooooooo 


2 i 


9297632177 


2 


34 4 


►0000000000 


2 i 


,3301825^77 


^ 4 


,1153271155- 


7 4 


,0000000000 


4 4 


,1885468074-- 


5 



9-423 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



CV-164 

page ON 007-30 

REPORT ZM 2491 
MODEL All 
DATE 6/20/56 



•29 x 29 Matrix A dehydrated* 



4391970185 7 
6536977121 6 
2273862205 4 
1278862810- 5 
1673271194 4 
1247106123- 5 
6737892792- 6 
8821830093- 5 
0000000000 1 
1603925408 5 
1956470381 5 
1099693602- 7 
0000000000 1 
1024655024- 
0000000000 1 
8968755097 4 
0000000000 2 
8459686315 4 
1112163267* 6 
0000000000 7 
0000000000 3 
0000000000 
3668268233 5 
6856066033 5 
0000000000 4 
3354713188 5 
2472433668 4 
0000000000 1 
662013933~3 4 
7820299122- 5 
0000000000 1 
7200680527- 4 
6536977121 6 
7618149984 5 



.0000000000 


2 , 


ilS87073127 


5 , 


,1917222437- 


7 , 


,0000000000 


2 


♦0000000000 


10 


11931808165 


3 1 


,0000000000 





►1045721812- 


7 


.0000000000 


2 


.1991422306- 


4 < 


iOOOOOOOOOO 





,3342415114 


7 


•1956470381 


5 < 


►1121533334 


5 4 


,0000000000 


, 


►1576569586- 


7 


.0000000000 


, 


,1252089151- 


5 4 


.3665006317 


6 , 


►0000000000 


1 


.0000000000 


2 , 


►1764121224 


4 4 


,0000000000 


4 < 


►1425800171 


4 


.1855177321 


4 < 


iOOOOOOOOOO 


3 4 


,1278862810- 


5 4 


,1513472040 


7 


.0000000000 


1 4 


.1651194109 


4 4 


,1060695183- 


7 4 


,6620139333 


4 


♦5438769491 


6 4 


►0000000000 


1 4 


,6721400032- 


5 1 


►0000000000 


1 


♦00000O0000 


5 , 


•1050351686 


5 4 


,1629515^23- 


6 4 


IOOOOOOOOOO 


3 


.8021830093- 


5 t 


.2142369990 


7 4 


,0000000000 


2 4 


,8607917470 


4 


.0000000000 


2 < 


►4120597796 


6 4 


,0000000000 


1 4 


►5206830094- 


5 


.1043693818 


5 , 


iOOOOOOOOOO 


1 < 


,2399646300 


5 4 


►0000000000 





♦00OOOO0000 - 


3 4 


►2676268826- 


6 4 


.1887073127 


5 4 


,1121533334 


5 


.1042037298 


7 , 


,2366537811- 


6 4 


►1427613785 


5 4 


,9775445338- 


4 


•25^3990430- 


6 < 


.1120507474 


6 4 


.0000000000 


1 4 


.1221170247- 


5 


♦5236259731- 


3 4 


.0000000000 


3 4 


►3481976210 


6 4 


,0000000000 


4 


♦1917222437- 


7 4 


.0000000000 


2 4 


.2866537811* 


6 4 


,1988559802 


7 


.3354713188 


5 1 


,3077876222- 


5 1 


,9157295648- 


6 4 


,7969245389 


4 


.0000000000 


1 4 


►1062027047- 


4 4 


.0000000000 


4 


►3579432551 


6 


♦1094800400 


5 , 


.0000000000 


* 1 


.1576569586- 


7 4 


►1651194109 


4 


♦1427618735 


5 4 


►1112163267- 


6 4 


.1639841941 


7 4 


.3579762830- 


5 


♦761B149984 


5 4 


►1000440533- 


7 4 


.2399376310 


4 4 


.0000000000 





♦0000000000 


2 4 


►9698398057- 


4 4 


.0000000000 


5 4 


•3313806204 


6 


.1673271194 


4 4 


,1060695183- 


7 4 


,8607917470 


4 4 


►9773445338- 


4 


•3579762830- 


5 4 


.1494353793 


7 4 


,7820299122- 


5 4 


,0000000000 





•1198305783- 


7 , 


►7472618142 


4 4 


.0000000000 


4 


,3140563591 


6 


.7494316235- 


5 4 


.0000000000 


6 4 


,5834576336 


5 4 


►0000000000 


4 


.1099693602- 


7 4 


.8968755097 


4 4 


,3077875221- 


5 4 


,3668268233 


5 


.1407180846 


7 , 


.0000000000 


1 4 


,1117285796 


5 4 


,8141394397- 


6 


.2087724571 


6 , 


.0000000000 


1 4 


►4184782667- 


5 4 


,0000000000 


1 


•8001611163- 


5 4 


►1143933398 


4 


►0000000000 


3 4 


,7422888090 


5 


•1252039131- 


5 4 


►0000000000 


1 4 


►2533990430- 


6 4 


.9157295648- 


6 


•0000000000 


1 4 


► 792259097*1 


6 4 


►1712443284- 


6 4 


,2251419427 


5 
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REPORT 211 14.91 

MODEL All 

DATE 6/20/56 



•29 x 29 Matrix A dehydrated" 



69 < 


►1407101198- 


5 


•3153213201 


5 


iOOOOOOOOOO 


2 < 


16809209483- 


3 • 


70 < 


►1930041152 


4 


•0000000000 


< 


■3348422218- 


1 < 


1 0000000000 


3 . 


71 , 


iOOOOOOOOOO 





.3665006317 


6 


•oooooooooo 


1 i 


11120507474 


6 • 


72 


,1000440533- 


7 


•2472433668 


4 


iOOOOOOOOOO 


< 


■1712443284- 


6 • 


73 


»3597784223- 


5 


^2599568678 


5 


il275801501- 


6 < 


i2162222531 


4 • 


74 , 


il762507593 


5 


.0000000000 


5 i 


ill96194835~ 


6 i 


►0000000000 


5 • 


75 , 


iOOOOOOOOOO 


2 


.2399376310 


4 , 


ill98305783- 


7 , 


►1117285796 


5 « 


76 , 


►3597784223- 


5 


•1397444025 


7 ( 


1 6496881001- 


5 ( 


►3036412342 


4 • 


77 , 


►4523849346 


4 


•0000000000 


i 


►2077971907 


6 4 


iOOOOOOOOOO 


6 • 


78 < 


iOOOOOOOOOO 


5 


.4120597796 


6 < 


iOOOOOOOOOO 


2 t 


»7472618142 


4 • 


79 < 


►1407101198* 


5 


.2599568678 


5 i 


►6496881001- 


5 4 


►7628170177 


6 • 


80 i 


►6301189950 


4 


•3133104375- 


6 . 


►0000000000 


1 - 


►8380147004 


5 • 


81 < 


i2103429817- 


3 


•0000000000 


< 


►1139380806 


4 


iOOOOOOOOOO 


3 • 


62 1 


►0000000000 





•1247106123- 


5 i 


iOOOOOOOOOO 


I 4 


(1221170247- 


5 • 


83 4 


►6856066033 


5 


•0000000000 


1 1 


►3153213201 


5 4 


►1275801501- 


6 • 


84 4 


►0000000000 





.1351326026 


6 < 


►6641036020- 


5 4 


(5339020821 


5 • 


85 , 


►2144214568- 


5 


.0000000000 


5 , 


►1478294679 


5 4 


►0000000000 


5 • 


86 4 


►00000000^0 


3 


•3140563591 


6 < 


►0000000000 


1 < 


(2162222531 


4 • 


87 t 


,6301189950 


4 


•6641036020- 


5 4 


t 8684594515 


6 4 


(2091887123- 


6 • 


88 , 


,4142767648- 


6 


.8081281290 


4 4 


►0000000000 


5 4 


,1216818947 


4 • 


89 , 


,0000000000 


4 


♦5206830094- 


5 4 


►0000000000 


3 4 


(2087724571 


6 . 


90 4 


,4528849346 


4 


•3133104375- 


6 4 


(5339020821 


5 4 


(2091887123- 


6 • 


91 4 


,3261077612- 


6 


.1244318960 


5 4 


►1332447094- 


6 1 


(0000000000 


5 • 


92 1 


,2107882001- 


5 


•0000000000 


14 4 


►1532483536- 


5 4 


,1293433351 


6 • 


^93 4 


,3498604061 


6 


.0000000000 


3 4 


,9019303291- 


1 4 


,0000000000 


t 




,3527649574- 


4 


.0000000000 


2 4 


,9297632177 


2 4 


,0000000000 


• 


4 95 1 


,1603925408 


5 


•0000000000 


4 


►5236259731- 


3 4 


,0000000000 


* 


I 96 ' 4 


,7494316235- 


5 


.0000000000 


, 


,6809209483- 


3 4 


1762507593 


5 • 


*- 97 1 


,0000000000 





.2144214568- 


5 4 


,4142767648- 


6 4 


,1244318960 


5 « 


^98 i 


,3241272409 


6 


•1202951677- 


5 4 


,0000000000 


5 4 


,4009420664- 


3 • 


99 4 


,1043693818 




.0000000000 


3 4 


►4184782667- 


5 4 


,0000000000 


7 • 


100 4 


,0000000000 





.8081281290 


4 4 


,1332447094- 


6 4 


,0000000000 


• 


101 4 


,7014090267 


5 


.315?213?01 


5 « 


,0000000000 


2 4 


,6809209483- 


3 • 



0000000000 2 
1989600764- 5 
7969245389 4 
9321300572 6 
0000000000 1 
5438769491 6 
2251419427 5 
6237452968- 6 
1582955618- 5 
3141394397- 6 
0000O00000 
0000000000 ' 1 
2168340073 4 
0000000000 
3036412342 4 
15?f2483536- 5 
6721400032- 5 
6?3745?°71- 6 
1293433351 6 
1083173175 5 
0000000000 1 
6770817700 6 
1524555205 4 
3261077612- 6 

1611736022- 1- 
1764121224 4 
9698398057- 4 
2077971907 6 
0000000000 
0000000000 5 
8380147004 5 
1202951677- 5 
0000000000 2 
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REPORT Ztf l\9\ 

MODEL XH 

DATE 6/20/56 



"29 x 29 Mfctrix A - Largest 27 Eigenvalue*' 



6050391256 


7 4 


»4820657418 


7 . 


1646348332 


7 A 


,1490*69395 


7 . 


1094844363 


7 i 


,7922861997 


6 . 


2201522604 


6 4 


►1811715067 


6 • 


5232201519 


5 , 


,3466753013 


5 • 


2743508278 


4 4 


,1721665082 


4 « 


*Bigenr< 


»ctort of last 


11 B 


1697784185- 


l-< 


,6755937912 


l-# 


2874679484- 


1*< 


,1092355938- 


• 


9123459799 


l-i 


,4039786652 


1-. 


1244212824 


1 


► 248052225(1- 


« 


2427652997- 


< 


,1974710336 


!-• 


1490918836- 


, 


,1515251822- 


• 


8314540038 


1*1 


,3201122824- 


« 


9138417021- 


1*1 


,1829969611- 


1*# 


1717095256 


, 


,2659664187 


2-. 


6806955943 


1-4 


► 6*459460649 


l-« 


9677660624 


1*4 


,1073834896- 


• 


2545626737- 


1 


,2624732735 


• 


1620893973- 


, 


,1435047883 


• 


6481718209 


2-4 


,1386099989 


* 


1525161930- 


i 


,1609666900- 


1~» 


3122303859- 


< 


,6186870996 


l*t 


2313591327 


, 


,1955914483 


. 


6192496442 


l- ( 


,3006676827- 


• 


6393032289 


1-4 


,9352180874 


1-. 


7728232204 


l-< 


,2161610841- 


. 


2412643761- 


1-4 


,2944370100- 


. 


1183740303- 


4 


,4367102724- 


• 


7055714447 


1-4 


,1829903787- 


• 


2193589783 


i 


,2078166822- 


1-. 


4541.021708- 


1-1 


,7863391329- 


2-# 


5546211914 


2-4 


,2984743251 


1-. 


1146143609 





,2057434154 


♦ 



3700033876 7 

1347716962 7 

6464302894 6 

1406394162 6 

2798447725 5 

0000000000 
Eigenvalues obtal 

3457751454* 

1728186382- 1- 

2948166163 1- 

6521085402 1- 

8591464683 1- 

2346617991- 

1774026901 

1996857545 

3263859225- 1- 

7992108421- 1- 

6037754732- 

1114319574 1- 

2972567397 

2881271292- 

1834046828- 

1811915179- 

3511148665- 1- 

9607619630 4- 

156*4768509- 1- 

6024493102- 1- 

3231233726- 

1664313204 

1071008541- 

5997832757 1- 

1349249255- 1- 

5053491244 1- 

1740178109 



•3225412389 


7 i 


►2877327277 


7 


.1225370950 


7 4 


,1129763458 


7 


•5105663229 


6 i 


,2580032290 


6 


•1343232215 


6 4 


19333440632 


5 


.1743699669 


5 i 


,9583780118 


4 


.0000000000 
led" 


< 


,0000000000 





•1814290725 


i 


,4058064022 





•1517315504 


i 


,1450655492 





•5848954248 


1-4 


,1642059764 





•1602914272 


i 


,9849787016 


1- 


•4886983299 


4 


,1219075436* 





•2057953153 


4 


,2124168233- 


1- 


•4023391958 


4 


,2868576789- 


1* 


•1821323809- 


1 


►6357639369 


1- 


•2572519443* 


l-< 


,4394512906 


1- 


•2550118370 


1-1 


.7852701205- 


1- 


.1782293867 


i 


,6350016265- 


1- 


•1325396579- 


1-1 


,5334475993 


1* 


•1179961371- 


1-1 


,5001866488- 


1- 


•1548336312 


1-4 


►1541665227 





•1129682931- 


4 


,1365687921 


o, 


.8749586086 


1-4 


,2438235325- 





•2620749084 


i 


,4324840206 





.3521373071 


2-i 


►4685902755 


1* 


•2182667306- 


l-i 


►5753742916 


4- 


.1114373095 


4 


►1370456117 





.2058412532 


1 


►2996875851 





.1957903960 


4 


►2054768967- 





•3954392783- 


1-1 


►4003045901- 





.1686872136- 


4 


►6101353041- 


1- 


.4557548178 


2-4 


►2167726330- 


1- 


.1222528709 


4 


►6495213538 


1- 


.2517806679 


1 


►22823P4439 
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520 i 


,2953384703 


4 


,1619788842 


i 


►1447275071 


4 


,3142234047 


•< 


,3534751444- 







525 , 


,2472226701- 


, 


,1401179015 


< 


,2.432285432 


i 


,4693848755- 


4 


►1371039500- 







601 ( 


,9872538702 


1- 


,2602498939- 


i 


,4556905858 


i 


►1924160211 


i 


►1337630529 







606 


,1374329011- 


1- 


,5344956371 


1- 


,1107903066 


1- 


,2635041571 





►1116530260 







611 , 


,2908455711 


1- 


,4470656228- 


1- 


,8331004188 


l-< 


►6903861859 


1- 


,3254714380- 


1- 




616 


,1198812814- 





,2463240048- 





,2197142242 


i 


,2178939709 





,2041412889- 







621 


,2853843273- 





,2024274199 


4 


,2767826831 


4 


►1051527654- 


i 


►8090153012 


1- 




626 


,1931608232 


1- 


,1784416024- 


1- 


,7835559702 


2-, 


,3597428473- 





►1019303177 







702 , 


,2561387440- 


< 


,3238764402 


i 


,1390626257 


i 


►7098771774 


1-4 


►1460346445- 


1- 




707 , 


,1583348658 


i 


,3137682609 


1-4 


,5754754076 


1 


,1152095186 


4 


,3347188007 


1- 




712 , 


,8227234336 


l-< 


,7917191980- 


1-4 


,2729067231- 


1-1 


,1008935401 


4 


,1765852304 







717 , 


,1601919207 


« 


,1914955548- 


i 


,1272063791- 


< 


►2047718818 


4 


,1495487239 







722 , 


,1918084555- 


i 


,1560439940- 


4 


,7616729855- 


1-4 


,1409317877- 


4 


,4474957896 


1- 




727 < 


,9964869954 


1-4 


►1043866043- 


, 


,3308523595 


4 


,3120370141- 


1-1 


,6010294681 


1- 




803 < 


,6141797702- 


l-< 


,5803298607- 


1-4 


►9705684006- 


1-4 


,8509412051- 


2-4 


,1116441731 







808 < 


,1425485252 


!• 


,3345808888 . 


4 


►2015108966- 


1-4 


►9353284944 


2-4 


,8510108628 


1- 




313 4 


,6837600983 


1-4 


,2418526175 


1-4 


,2472209480 


1-4 


,1103324698 


i 


,3293018632 





< 


S18 4 


, 2061056146 


i 


►3541688532 


1~4 


,1576327795 


1 


►3847625000 


1 


►2597059867 







823 , 


,1057026602 


1-4 


,3945798637 


4 


►2271121982 


1 


►1507579325- 


1 


►2176791400- 







828 < 


►2055625735 


i 


,3616729594- 


4 


►4028024152- 


i 


►6369742701 


1 


►2309429004 


1- 




904 « 


►1241368296- 


« 


►2200037762- 


, 


,1922119896- 


2-i 


►1862118391 


1 


,2949753932 


1 «• 




909 1 


►4615453073 


4 


►7436527908- 


3-i 


►5319631179- 


1— < 


►1389994164- 


, 


►1027053755- 


1- 




914 , 


►2343719156 


1-4 


►2749795002- 


l-i 


►9006965406- 


l-i 


►1836035234- 


1 


►2913061208- 


1- 


/— V 


919 , 


,2578171728 


1-1 


,9245449595- 


l-i 


,1601742298- 


1 


►3353042183- 


1-1 


2926734688 


1 — 


1—1 


924 , 


►8867986790- 


1-1 


,3590653941- 


l-i 


►3372141267 


1 — 1 


►4296493994 


1-1 


►3331653875- 


1*" 


1 


929 « 


►4687968794 


l-# 


►1918261949- 


l-i 


►1337762857 


1-1 


►2127323634 


1-1 


► 1208657289 


1 — 






1005 , 


,1402282325 


1-1 


►1127049421- 


2-i 


►3704605933- 


2-i 


►5376445899 


3-i 


►1616780489- 


1- 




1010 , 


,1931098290- 


3 — 4 


,2492475922 


2-4 


,2137876390 


l-i 


,7163426069 


l-i 


►2721548472 


1 — 




1015 4 


►8279944112- 


2-i 


►5123606982- 


2-i 


►4697118496 


l-i 


►2279688404 


1 


►1262890238 







1020 , 


,1031313519- 


l-i 


►4919491178 


l-i 


►2789634266 


i 


2374814917 


1 


►1027065596 







1025 1 


►3272412981 


1 


3983715423 


1 


►2569282457 


1 


►3027827199 


1 


►5812507330 







1101 t 


,6548873728- 


1 


►1322672434 


1 


►4436966511 


1 


►2430701760 


1 


►2773814189 







1106 1 


►4233536414- 


3-i 


►1411090518- 


1 


►2084736623- 


1-1 


►3100173512- 


t 


,1090777226 







1111 4 


►9652626801 


l-i 


,1440845923 


1 


►7640430686- 


3-i 


.2027677427- 


1-1 


►5097229135 


1- 



9-427 



CONV AIR - DIVISION OF GfNERAL DYNAMICS CORP. CV-164 

SAN DIEGO CALIFORNIA PAGE CBf 007 ""3^ 

REPORT ZU I}.91 

MODEL AH 

DATE 6/20/56 



1116 ,1041514800 .1455984396 ,1542009111- 2-, 2660670653- 1-, 8545663034 1- 
1121 .1083388567 .1924152284- 2-. 3142390786- 1-#3320401456 1-. 2622282131- 2" 
1126 .3080861266- 1-. 2706741637- 1-. 2473936938- 2-. 3564298578- 1-.3254714380- 1- 



"29 x 29 Matrix A— Ay and Ay - %f tar 5 Last Eig«nvalu»e and ligenwc tora Obtained" 

1 .2852466907 4 .7167909440* 4 .9063514133 4 .3891594207 4 ,19865542i83 4 

2 .4086722617- 3 .4430918353 4 ,8780640983 3 ,1610437891 5 ,3224078411 4 

3 .2335918251 4 ,2302347264 4 ,2215584315- 4 . 7637150934* 3 ,2823453282 4 

4 ,4941644253 4 ,4482887045 4 ,5358902828- 4 ,3559803496- 4 ,5730433763 4 

5 .4185042341 4 .5367659211- 4 .4366808899* 4 ,2131501583- 4 ,3943901951* 4 

6 ,1252293543 4 ,2788617120 4 ,2921205043* 4 ,9258729738 4 ,0000000000 



1 ,"25^4587173 3-.5848407745- 3*« 1263141632 2*%6785302761~ 3-#1112222671 3" 

2 ,1943171024- 2", 9536743 164* 4-, 2238154411 4~, 4587173462 3-, 2590417862 V 

3 .1322746277 2-, 1255750656- 2-, 4724264145 3-, 1045763492 3-,3050563719 %' 

3 4 .1109361648- 2~, 1149177551- 3-, 1678466797 3-, 5263090133 3-.2999305723- 3' 

»— i 

T 5 ,51999°92l0- 3*. 1478195190 3*. 7002353668 3-,4303726959 3-,4549026489 V 

& i ■-.;.;■■;.'■ 

o 6 .3117322922* 4-.354886°55° 3-,49°1885986~ 3-,588417°532* 3-. 0000000000 



x 

a. 



1 .5440983961-3 .1048014229 4 .1070945040- 4 ,1011921139- 4 ,1692379541- 4 

2 ,1483782086* 3 .1946738062 4 ,2485619473 3 #5834085742 4 #3513752676- 3 

3 ,1630930404 3 ,1483907992 4 .1192272509 4 #4217181994 3 #4310314497 3 

4 .1923865934, 4 .5742036509 4 ,3593862558 4 #6175642175 3 #2748642092 4 

5 .6709101952 4 .4005332667 4 ,1843134222 3 #6880287668 4 ,3960134893 4 

6 ,2628765960- 4 .3793670600- 4 .3584393749 4 ,6306490416- 4 .0000000000 

9-428 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN P'EGO C»LIFORNI 



CV-164 

page CH 007-35 

REPORT ZM 1+91 

MODEL All 
DATE 6/20/56 



1 ,4420376503 3-, 6553530693- 3-. 2127835818 4-. 1532733440- 3-. 2567768097 3- 

2 .3810673952 3-. 1014292240- 2-. 1311376691 3-.1082420349- 3-«7841587066- 3* 

3 ,1581385731- 3*. 6322360718 3-«2524852752 3-.1296848058- 3-.2364650368 2* 

4 .9267926216- 3-. 10108947T5 2-. 3602504730- 3-.1056790352 3-.1633167267- 3« 

5 .4863739013- 3-.1376867294 3-. 2712234854* 3-»1966953277- 3-.2461671829 3« 

6 .3905296325- 3-. 1571178436- 3-. 1652240753- 3-.2 198219299* 3-.0000000000 



1 .3860370252- 4 .6104620982 4 .2213303524 3 .1190178442- 4 .2108467695- 4 

2 .1842129259- 2 ^1784613621 4 .2826977963 3 .4423348312 4 .7126259464- 1 

3 .5577404519- 3 .1332140528- 4 .9843081920- 2 .2246167689 3 .2635366673- 3 

4 .8632075419- 3 .1759616660- 4 .2791814680- 3 .2470861891 3 .8860629077- 3 

5 .1535074602- 4 .3213483627- 3 #2804917842 3 .8498887871- 3 .3441209253- 3 

6 .3231788901 3 .4117666688 3 #3192984558- 3 .4492850306 3 .0000000000 





1 


.4743337631" 




2 


.1181596890 




3 


.2039968967 




4 


.2179443836 




5 


.3635883331- 




6 


.2860575914 


vO 

1— 1 






O^ 






I 

O 
O 


1 


.5262494217< 


1— 1 


2 


.3092504630- 


X 


3 


.6838390588 



4 .1405645601- 

5 .1349666774 

6 .1092935718 



3-.3623962402- 3-. 2453178167' 
3-. 2995133400 3-.1343339681' 
3-.6852746010- 3-. 24*57424998' 
3-.8629560470- 3~.8715689182' 
5-.1727342605- 3-«3279745579« 
3-. 1317709684 3-. 7416307926- 



2 ,3670434084 2 .5636455391 

1 .2388179941- 2 .1475005865 

1 .5865302533 2 .1965289407 

2 .1288661291 3 .6254343042 

3 .7653385296 3 .6515322532 

4 ,7048847961 3 .8306868796 



3^.8261799812 3-.1211166382 V 

3-.4270076752- 3-.7453656290 3« 

3^.1215934753- 3-. 2360776067- 2' 

4-. 1202076673- 3-.6519556045 3« 

4-.4321336746- 3-.546&875170- 3« 

4-.4095435142 3-.0000000000 



2 .3316032743 2 .3847212355 2 
1 .4435703933- 2 .5293424619- 

3 .7466571380 2 .2271582505- 2 
3 .3464750232 3 .2829406340- 2 
3 .2817761727 3 .8977889153 3 
3 .1594666481 4 .0000000000 



9-429 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. CV-164 

•ANO.EGO CALIFORNIA PAGE CB 007 "^ 

REPORT ZM 1*91 

MODEL All 

DATE 6/20/56 



1 .2733180299 2*. 2706145867 2-. 1253914088 2-.7146596903 3-#3918819129 3~ 

2 .4352668766- 3-. 6*09706548* 3~#2651748946- 4-. 5328077823- 3-«2559524146 3* 

3 .2622641623 3-. 2096276730 3-. 2464428544- 3-. 1937970519- 3-. 2701580324 3* 

4 .2021472901 3-. 294402241 7 3-. 9647011757- 4^.2738833427 4- t 1083612442 3- 

5 .2973526716 4-. 5951523781 4-. 1350426197- 3-# 1238435507- 3-. 2950429916" 3- 

6 .9459257126 4-.2720952034 4-. 1901388168- 4-.1463890075 3-.000000C000 



1 .1127496843- 4 .2277200880 3 .7638971079 3 .4184852155 3 .4775577502 3 

2 .7289659832- .2429425149- 3 .3589217010- 2 .5337460612- 3 #1877951176 3 

3 .1661858749 3 .2480653283 3 #1315410038- 1 .3490980232- 2 .8775775775 2 

4 .1793139050 3 .2506719238 3 .2654883854* 1 .4580782139- 2 #1471273158 3 

5 .1865230494 3 .3312833250* 1 .5410145628* 2 .5716629106 2 .4514717266- 1 

6 .5304217386- 2 .4660101890- 2 #4259395062- 1 #6136540591- 2 #0000000000 -0 



1 ,1210570335- 3- # 1935139298 3-.7665157318 4~ t 2190023660- 3~#153139?336- 3- 

2 .9280181257- 4-.1234561205 4-. 1236610114 4-. 1299381256- 4-#l385816453- 3- 

3 •30137S9851- 4-. 8308142423- 4-. 1623333455 4-. 1191534102 4-.5436092615 3- 

4 .6134063005- 4«".8834898472 4-. 6061152089- 4-#1616589725 4-#3806129098- 3- 

5 .1771226525- 3-. 8745200466- 4*.1138821244- 4-.9864196181 4-#2568820491- 4* 
6 1 . .6124749779- 4-. 6714835763 5-. 1042240765- 3-.1218877733- 3-»0000000000 



I 

o 
o 
o 



X 

CU 



9-430 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP 



SAN DlfcGO ^.AllFOWNI 



Code 



CV-164 

PAGE CN 007-37 

REPORT ZM k9l 

MODEL All 

DATE 6/20/56 






I 
I 

o 

o 



a- 



40000 
40001 
40002 
40003 
40004 
400C5 
40006 
40007 
40010 
40011 
40012 
40013 
40014 
40015 
40016 
40017 
40020 
40021 
40022 
40023 
40024 
40025 
40026 
40027 
40030 
40031 
40032 
40033 
40034 
40035 
40036 
40037 



00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 

00011 

00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 



45 00000 

00 ooooc 

00 00000 
00 00 oca 

00 00000 
00 00000 
00 00000 
00 00 007 
00 00000 
00 00000 
00 00000 
00 00000 
00 00000 
00 41452 
00 41452 
00 00000 
00 00000 
00 00420 
00 00420 
00 00420 
00 00000 
00 00000 

00 oocoo 

00 00000 
00 00000 
00 00000 
00 00000 
00 00000 
00 00 000 
00 00000 
00 00000 
00 00002 



41076 

ooooc 

00000 
<^00 n 
00000 
00000 
00000 
77777 
00000 
00000 
00000 
00000 
00000 
00000 
41452 

coooo 

00000 

00420 

00420 
00420 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



JUMP TO STARTER 
2N 

N-l 
E 
E 
N 

2NX2' 5 " 

LAST ITERATION SWITCH 
INDEX 
AX 
RQ 

TEMPORARY 
CELLS 
L (MATRIX AMD) X2 /J 
L (AMD) X2 ,F + L (AMD) 



L (V,) X2' 5 " + L (V,) 
L (v x ) X2 ,5 + L (V x ) 
L (a) X2' r + L (A ) 
TYPING INDEX 
OP 1 

OP 2 

RES 

INNER 
PRODUCT 

5 OF V^ SV, 



9-431 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



CV-164 

page CH 007-33 

REPORT ZM iU91 

MODEL All 

DATE 6/20/56 



40040 


00040 


00 


00000' 


00000 


ZERO 




40041 


00041 


00 


00000 


00002 






40042 


00042 


00 


00000 


00001 






40043 


00043 


00 


00000 


00000 






4 0044 


00044 


00 


oocoo 


00000 


TEST INDEX 




40045 


00045 


00 


00000 


coooo 


INDEX 




40046 


00046 


00 


00000 


00000 


INDEX 




40047 


00047 


00 


00000 


00000 


ITERATION COUNT 




40050 


00050 


37 


76000 


76002 


ARITHMETIC PACKAGE 


CA 001 


40051 


00051 


45 


00000 


30000 






40052 


00052 


*;5 


00000 


00076 






40053 


00053 


45 


00000 


00142 






40054 


00054 


11 


00027 


20000 






40055 


00055 


47 


00056 


00050 






40056 


00056 


11 


00025 


20000 






40057 


00057 


47 


00063 


00060 






40060 


00060 


11 


00040 


00031 






40061 


00061 


11 


00040 


00032 






40062 


00062 


45 


00000 


00051 






40063 


00063 


54 


20000 


00042 






40064 


00064 


73 


00027 


10000 






40065 


00065 


11 


00040 


00025 






4 0066 


00066 


74 


10000 


00025 






40067 


00067 


11 


20000 


00031 






40070 


00070 


23 


00026 


00030 






^ 40071 


00071 


11 


00025 


20000 






w 40072 
1 


00072 


47 


00074 


00073 






°i 40073 


00073 


21 


00026 


00042 






§. 40074 


00074 


11 


00026 


00032 






^ 40075 


.00075 


45 


00000 


00051 






°- 40076 


00076 


11 


00025 


20000 






4 0077 


00077 


47 


00100 


00120 







9-432 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. CV-164 

SAN DIEOO C*LIFORN'* PAGE CH 007 ~"39 

REPORT ZM 1^91 

MODEL All 

DATE 6/20/56 



40100 00100 11 00027 20000 

4C101 00101 47 00105 00102 

40102 00102 11 00025 00031 

40103 00103 11 00026 00032 

40104 00104 43 0000» 00051 

40105 00105 11 00026 20000 

40106 00106 36 00030 00032 

40107 00107 46 00116 00110 

40110 00110 11 00025 20000 

40111 00111 11 00027 00025 

40112 00112 11 20000 00027 

40113 00113 11 00026 20000 

40114 00114 11 00030 00026 

40115 00115 11 20000 00030 

40116 00116 12 00032 20000 

40117 00117 42 00141 00123 

40120 00120 11 00027 00031 

40121 00121 11 00030 00032 

40122 00122 45 00000 00051 

40123 00123 16 20000 00124 

40124 00124 54 00027 00000 

40125 00125 35 00025 20000 

40126 00126 11 00040 00032 

40127 00127 74 20000 00032 
40130 0C130 11 20000 00031 

3 40131 00131 47 00133 00132 

Y 40132 00132 13 00032 00026 

o 

o 40133 00133 11 00032 20000 

o 

£ 40134 00134 42 00140 00136 



h- 



x 

a. 



40135 00135 23 00026 00207 (oo2.€>)-\\0 

40136 00136 21 00032 00026 

40137 00137 45 00000 00051 



9-433 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN OIEGO CALIFORNIA 



CV-164 

page CH 007 4i0 

REPORT 211 U L )l 

MODEL AH 

DATE 6/20/56 





40140 


00140 


00 


00000 


00046 






40141 


00141 


00 


00000 


00043 






40142 


00142 


71 


00025 


00027 






40143 


00143 


11 


00040 


00025 






40144 


00144 


74 


20000 


00025 






*4 0145 


00145 


11 


20000 


00O31 






40146 


00146 


47 


00151 


00147 






40147 


00147 


11 


00040 


00032 






40150 


00150 


45 


00000 


00051 






40151 


00151 


23 


00025 


00141 






40152 


00152 


21 


00026 


00030 






40153 


00153 


35 


00025 


00032 






40154 


00154 


45 


00000 


00051 






40155 


00155 


15 


00022 


00165 


INNER PRODUCT 5ET L (V : 




40156 


00156 


15 


00021 


00163 


SET L (V,) 




40157 


00157 


11 


Q0002 


00010 


SET INDEX = N-l 




40160 


00160 


23 


00033 


20000 


STORE 




40161 


00161 


23 


00034 


20000 







40162 


f00162 


75 


30002 


00164 


V l 




40163 


00163 


11 


30000 


00025 


> OP 1 




40164 


00164 


73 


30002 


00166 


Vi 




40165 


00165 


11 


30000 


00027 


— -^ OP 2 




40166 


00166 


37 


00051 


00053 


MULTIPLY 




40167 


00167 


75 


30004 


00171 


RES — > OP 1 




40170 


00170 


11 


00031 


00025 


INNER PRODUCT — > OP 2 


r-1 


40171 


00171 


37 


00051 


00052 


ADD 


1 
| 


40172 


00172 


11 


00031 


00033 


STORE 


O 

O 


40173 


00173 


11 


00032 


00034 


INNER PRODUCT 


1—1 


40174 


00174 


21 


00163 


00037 


SET FOR 


cu 


40175 


00175 


21 


00165 


00037 


NEXT ELEMENT 




40176 


00176 


41 


00010 


00162J 


INNER PRODUCT COMPLETE 




40177 


00177 


45 


00000 


30000 


EXIT 



9-434 



CONVAiR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



CV-164 

page CH 0074*1 

REPORT Z|[ JU91 
MODEL All 
DATE 6/20/56 



40200 


00200 


00 


00000 


00000 


40201 


(00201 


41 


00200 


00210 


40202 


00202 


56 


30000 


00203 


40203 


00203 


11 


,00004 


20000 


40204 


00204 


47 


00205 


00210 


40205 


00205 


75 


30210 


00211 


40206 


00206 


11 


40740 


00210 


40207 


00207 


00 


00000 


00110 


40210 


00210 


75 


30000 


00212 


40211 


00211 


11 


30000 


30000 


40212 


00212 


37 


00324 


00306 


40213 


00213 


13' 


00033 


00035 


40214 


00214 


11 


00034 


00036 


40215 


00215 


37 


00305 


00260 


40216 


00216 


21 


00047 


00042 


40217 


00217 


41 


00044 


00222 


40220 


00220 


75 


30160 


01640 


40221 


00221 


11 


40560 


01620 


40222 


00222 


56 


30000 


00223 


40223 


00223 


41 


00045 


00250 


40224 


00224 


11 


00247 


00045 


40225 


00223 


37 


00324 


00306 


40226 


00226 


75 


30004 


00230 


40227 


00227 


11 


00033 


00025 


40230 


00230 


37 


00051 


00052 


40231 


00231 ' 


11 


00031 


00027 


40232 


00232 


11 


00032 


00030 


£ 40233 


00233 


11 


30000 


10000 


w 40234 

1 


00234 


21 


00233 


00257 


°i 40235 




00235 


41 


00046 


00240 


§ 40236 


00236 


15 


00304 


00233 


*" 40237 

X 

a. 


00237 


11 


00041 


00046 



AX-^X = ^ — > V. 



ORTHOGONAL I2AT ION INDEX 

EV PART II. 0RTH0G0NALIZE? 

YES : DUMMY 

£ -— »(A) 

E = 0? 

NO : ORTHOG S«R* — »ES 

JUMP TO ORTHOGONAL! ZE 
ARITHMETIC CONSTANT 
X 

— > VMD 
R»Q# 5«R* 
STORE 

-v</(x)=s 

V 2 + SV, S«R. 
ITERATION COUNT + : 
READY TO TEST? 
yes: PART ! — »ES 
JUMP TO TEST 
NO : DUMMY 
NEW <* ? 

YES^ RESET <* INDEX 
R» Q« StR« 
j"(?) — >0P 1 
-/S{%) — *OP 2 
ADD 

— > OP 2 
H (fit) — > (Q) 
SET FOR P x 
USED ALL /G\$? 
YES: RESET TO >#, 
RESET/? INDEX 



9-435 









c 


ONVAIR - DIVISION OF 

SAN DIEGO 


GENERAL DYNAMICS CORP. CV-164 
CALiroHNiA PAGE ON 007 - i|2 

REPORT Of k9l 
MODEL 411 
DATE 6/20/56 




40240 


00240 


56 


30000 00241 


NO : MS #3 STOP TO CHANGE ]3. 






40241 


00241 


11 


10000 00025 


P 








40242 


00242 


23 


00026 20000 




— > OP 1 






40243 


00243 


37 


00051 00054 


DIVIDE 






40244 


00244 


11 


00031 00017 


STORE 








40245 


00245 


11 


00032 00020 


<* 


= # Wf)-rt4 






40246 


00246 


56 


30000 00250 


DUMMY 








40247 


00|47 


00 


00000 00001 


<* INDEX 






40250 


00250 


75 


30000 00252 


X 








40251 


00251 


11 


00000 00000 


~-* V 2. 






40252 


00252 


12 


00017 00035 


M 








40253 


00253 


11 


00020 00036 




— » s 






40254 


00254 


37 


00305 00260 


Yi +■ sv i — > v i '• x + <* ? = 


X, -» V, 




40255 


00255 


45 


00000 00256 


DUMMY 








40256 


00256 


56 


30000 0020l| 


RETURN TO 0RTH0G TEST 






40257 


00257 


00 


00001 00000 










40260 


00260 


11 


00002 00010 


Vx + 


SV, S»R. SET INDEX 


= N-l 




40261 


00261 


13 


00021 00265 


STORE 


L ( V.) 






40262 


00262 


15 


00022 00274 


STORE 


L ( V 2 ) 






40263 


00263 


16 


00021 00277 


STORE 


L ( V,) 






40264 


(00264 


75 


30002 00266 


V|| 








40265 


00265 


11 


30000 00025 




— ^ OP 1 






4 0266 


00266 


11 


00035 00027 


s 








40267 


00267 


11 


00036 00030 




— > OP 2 






4 0270 


00270 


37 


00051 00053 


MULft 






/■"* 

3 


4 02T1 


00271 


11 


00031 00025 


sv n 






I— 1 


40272 


00272 


11 


00032 00026 




— > OP 1 




0« 


40273 


00273 


75 


30002 00275 


V21 






8 

a* 


40274 


00274 


11 


30000 00027 




~> OP 2 






4 0275 


00275 


37 


00051 00052 


ADD 






X 
fiu 


40276 


00276 


75 


30002 00300 


Vai + 


sv u 






40277 


00277 


11 


00031 30000 




— ♦ v„ 





9-436 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN DIEGO CALIFORNIA 



CV-164 

page CH 007«4i3 

reportZM iU91 

MODEL All 
DATE 6/^0/56 






I 

o 
o 



0- 



40300 
40301 
40302 
40303 
40304 
40303 
40304 
4 0307 
40310 
40311 
40312 
40313 
40314 
40315 
40316 
40317 
40320 
40321 
40322 
40323 
40324 
40325 
40326 
40327 
40330 
4033^, 
40332 
40333 
40334 
40335 
40336 
40337 



00300 
00301 
003C2 
00303 
00304 
00305 
00306 
00307 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 

0C330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 



21 00265 
21 00274 
21 00277 
41 00010 
45 00410 
56 30000 
37 00326 
15 00021 
37 00177 
11 00033 
11 00034 
37 00177 
11 00033 
11 00034 
11 00013 
11 00014, 
37 00051 
11 00031 
11 00032 
45 00000 
56 30000 
00 00000 

45 ooaoo 

45 00000 

15 00015 

16 00022 
15 00405 
11 00002 
11 00040 

(Tl 00040 
11 00040 
21 00012 



00037 

00037 

00041 

00264J 

00305 

30000 

00330 

00165 

00156 

00013 

00014 

00155 

00025 

00026 

00027 

00030 

00054 

00033 

00034 

00324 

30000 

00000 

30000 

00407 

00364 

00401 

00350 

00010 

00012 

00013 

00014 

00002 



SCT FOR L ( V a ) 
SET FOR I ( V 21 ) 
SET FOR L ( V I3L ) 
DONE ? 
DUMMY t L (m(£)) 



X2 



15 



EXIT 

R»Q# S # R» AX 

SET FOR XX 

INNER PRODUCT S#R# 

STORE 

XX 
INNER PRODUCT 
XAX 

— > OP 1 
XX 

— >OP 2 
DIVIDE 
STORE 

//(X) = XAX/XX 
DUMMY 
EXIT 

TEMP <* INDEX 
AX S«R. EXIT 
JUMP TO SETUP 
SET L ( AMD ) 
SET L (AX ) 
SET L ( A ; 
SET INDEX=*N*1 
INITIAL 

ZERO 
SETS 
SET INDEX = N-1 
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40340 


00340 


43 


00002 


00342 


WAS INDEX ORIGINALLY ZEROp 




40341 


00341 


45 


00000 


00343 


NO : JUMP 




40342 


00342 


15 


00021 


00346 


yes: SET L(X f ) 




40343 


[00343 


11 


00405 


20000 


CONST —>(A) 




40344 


00344 


43 


00350 


00361 


WORKING STORAGE EXHAUSTED? 




40345 


00345 


75 


30002 


00347 


no: x t 




40346 


00346 


11 


30000 


00025 


— » OP 1 




40347 


00347 


75 


30002 


00351 


An 




40350 


00350 


11 


30000 


00027 


— > OP 2 




40351 


00351 


11 


00027 


20000 






40352 


00352 


47 


00365 


00353 


M ( A„) =0? 




40353 


00353 


31 


00030 


00020 


YES: 2 (FLAG) X 2 ,T 




40354 


00354 


35 


00346 


00346 


SKIP X/s 




40355 


00355 


23 


00012 


00030 


CORRECT INDEX 




40356 


00356 


46 


00357 


00375 


INDEX < ? 

YES: (l (Xj) ~2n)* 2 ,r 




40357 


00357 


23 


00346 


00006 




40360 


00360 


45 


00000 


00375 


JUMP TO NEXT ROW 




40361 


00361 


15 


00023 


00350 


YES WORKING SPACE EXHAUSTED'. SET L ( A ) 


40362 


00362 


21 


00364 


00406 


SET FOR NEXT BLOCK TRANSFER 




40363 


00363 


75 


30000 


00345 


BLOCK OF MATRIX 




40364 


00364 


11 


30000 


30000 


— > ES 




40365 


00365 


37 


00051 


00053 


MULT* 




40366 


00366 


11 


00031 


00025 


A„ X, 




40367 


00367 


11 


00032 


00026 


— ^ OP 1 




40370 


00370 


11 


00013 


00027 


(ax), 




40371 


00371 


11 


00014 


00030 


— ) OP 2 




5 40372 


00372 


37 


00051 


00052 


ADD 




w 40373 


00373 


11 


00031 


00013 


STORE 




Z 40374 




00374 


11 


00032 


00014 


SUM 




§ 40375 


00375 


21 


00346 


00037 


SET 




^ 40376 


00376 


21 


00350 


00037 


FOR NEXT ELEMENT 




^40377 


00377 


41 


00012 


00343) 


INNER PRODUCT DONE? 
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40400 


00400 


75 


30002 


00402 


YES ■ STORE 








40401 


00401 


11 


00013 


30000 


(AX), 








40402 


00402 


21 


00401 


00041 


SET FOR (ax) x 








40403 


00403 


41 


0001Q 


00335) 


AX COMPLETED? 








4 0404 


00404 


45 


00000 


00326J 


YESJ JUMP TO EXIT 








40405 


00405 


11 


02000 


00027 


CONST* 








40406 


00406 


00 


00000 


00000 


KX2 15 =• NUMBER OF ES 


W.S. 






40407 


0*0407 


11 


00040 


00406 


— > TEST INDEX 








40410 


00410 


15 


00023 


00406 


STOfcE 








4 0411 


00411 


11 


00420 


20000 


K 








40412 


00412 


36 


00406 


00406 










4041-3 


00413 


11 


00421 


10000 


MASK — > (0) 








40414 


00414 


53 


00406 


00363 


SET REPEAT 








40415 


00415 


23 


00015 


00406 


L (AMD)X 2 ,T HCX2 ,T 








40416 


00416 


16 


00023 


00364 


SET L (A) 








40417 


00417 


45 


00000 


00326 


JUMP TO EXIT 








4 0420 


00420 


00 


02000 


OOOOO 


CONST ♦ 


V. 






40421 


00421 


00 


07777 


00000 


CONST, 








40422 


00422 


00 


00000 


00000 










4 0423 


00423 


00 


00000 


ooooo 










40424 


00424 


00 


00000 


ooooo 










40425 


00425 


00 


00000 


ooooo 










4 0426 




54 


01637 


10000 


PART I PATCH TX2 tR — 


■4(A) t 


(Q) 


/~"\ 


40427 




53 


20000 


40564 


STORE NEW T 






o 

r-l 


40430 




16 


40434 


40427 


RESTORE 






1 


40431 




11 


40435 


40426 


RESTORE 






1 

o 

o 


40432 




45 


00000 


01716 


RETURN TO TEST 






r— 1 


40433 




00 


00000 


00077 


MASK 






X 

a- 


40434 
40435 
40436 




00 
54 
00 


ooooo 

01637 
00000 


40564 
10000 

ooooo 
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40437 




00 


00000 


00000 






40440 




75 


30274 


01561 


PART I!I->ES« JUMP 




4 0441 




11 


40444 


01504 


TO INTERMEDIATE START 




4 0442 




75 


30114 


01504 


PART III— 4ES« JUMP TO 




40443 




11 


40444 


01504 


PART III 




4 0444 


01504 


11 


00033 


10000 


M (//) — »(Q) 




40445 


01505 


37 


01743 


01734 


TYPE M O) 




4 0446 


01506 


55 


00034 


10033 






40447 


01507 


37 


01743 


01734 


TYPE EXP (//) 




40450 


01510 


56 


30000 


01511 


DUMMY 




40451 


01511 


55 


00004 


10001 


2E •— » (Q) 




40452 


01512 


21 


01515 


10000 


SET FOR E VALUE 




4 0453 


01513 


21 


01527 


10000 


SET FOR INNER PRODUCT 




40454 


01514 


75 


30002 


01516 


STORE 




40455 


01515 


11 


00033 


30000 


E VALUE 




4 0456 


01516 


71 


00001 


00004 


2NE — * ( A) 




40457 


01517 


35 


01523 


01523 


SET EV REGION 




40460 


01520 


75 


30000 


01522 


Y 




4 0461 


01521 


11 


30000 


30000 


— > v 




40462 


01522 


75 


30000 


01524 


Y 




40463 


01523 


11 


30000 


30000 


— > EV REGION 




40464 


01524 


15 


00021 


00165 


SET FOR INNER PRODUCT 




40465 


01525 


37 


00177 


00156 


INNER PRODUCT 




40466 


01526 


75 


30002 


01530 


STORE 




40467 


01527 


11 


00033 


41052 


YY FOR ORTHOG 




40470 


01530 


21 


00004 


00042 


E + 1 




40471 


01531 


13 


00007 


00007 


RESET LAST ITERATION SWITCH 


1— 1 
1 


40472 


01532 


11 


00004 


10000 


E — MQ) 


O 
1 


40473 


01533 


11 


00003 


20000 


E — M A ) 


1— 1 


4 0474 


01534 


56 


20000 


01535 


MS 02 STOP TO CHANGE E 


a. 


40475 


01535 


11 


20000 


00003 


E — H003) 
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40476 


01536 


11 


10000 


00004 


E — »(004) 




4 0477 


01537 


42 


00004 


01565 


E > F ? 




40500 


01540 


43 


00004 


01570 


NO E < E : E = E ? 




40501 


01541 


56 


30000 


01543 


NO: DUMMY 




40502 


01542 


11 


01774 


00044 


TEST INDEX = 1 




40503 


01543 


11 


00040 


00047 


ITERATION INDEX ^ 




40504 


01544 


11 


01621 


00024 


TYPE INDEX =■ 1 




40505 


01545 


11 


00040 


00045 


INDEX = 




40506 


01546 


11 


00040 


00200 


OR T HOG INDEX = 




40507 


01547 


61 


00000 


01757 


C#R« 




40510 


01550 


61 


00000 


01757 


C*R« 




40511 


01551 


55 


00004 


10033 


EX2 33 — HQ) 




40512 


01552 


37 


01743 


01735 


TYPE E 




40513 


01553 


71 


00006 


00004 


2EN X 2 ,T — »(A) 




40514 


01554 


35 


01556 


01556 


SET FOR X e 




40515 


01555 


75 


30000 


01613 


X B —» V, 




40516 


01556 


11 


30000 


30000 


JUMP TO TYPE T 




40517 


01557 


61 


00000 


01757 


C»R« 




40520 


01560 


56 


30000 


00201 


JUMP TO 0RTH0G TEST 




40521 


01561 


75 


30420 


01532 


INTERMEDIATE START 




40522 


01562 


11 


40001 


00001 


RESTORE ESi PART II— »ES 




40523 


01563 


11 


00003 


20000 


E — »f A) 




40524 


01564 


56 


30000 


01536 


JUMP TO STORE E 




40525 


01565 


37 


76000 


76001 


E > E ' ALARM 




40526 


01566 


11 


00003 


20000 


E -—» (A) 




40527 


01567 


56 


00000 


01540 


RETURN TO. TEST E « E 


*-> 


. 40530 


01570 


23 


10000 


20000 


YES E ~ E "• OUTPUT STOP TO 




40531 


01571 


56 


00000 


01572 


SET M 


1 


t 


40532 


01572 


11 


10000 


00010 


STORE M 


8 


40533 


01573 


16 


00003 


01575 


SET L .( E VALUES ) 


1— 1 


40534 


01574 


37 


76 600 


76601 


OUTPUT 


£ 


40535 


01575 


00 


30000 


30000 


E VALUES 
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40536 


01576 


13 


00010 


10000 






40537 


01577 


21 


10C00 


00003 


E - M — »(Q) 




40540 


01600 


71 


10000 


00006 


(F-M)2NX2 ,J — »(A) 




40541 


0160J 


35 


01610 


01610 


SET L(1ST VECTOR FOR OUTPUT) 




40542 


01602 


55 


00010 


10017 


MX2 ,y 




40543 


01603 


15 


10000 


01611 


STORE M IN OUTPUT PARAMETER 




40544 


01604 


11 


00000 


76463 


SET MT S»R. 




40545 


01605 


37 


76463 


76430 


MT DUMP EV*5 




40546 


01606 


11 


01612 


76463 


RESTORE MT S.R. 




40547 


01607 


37 


76600 


76603 


OUTPUT 




40550 


01610 


00 


30000 


00000 


E VECTORS 




40551 


01611 


00 


30000 


30000 






40552 


01612 


56 


00000 


01532 


STOP. READY TO JUMP TO MS #2 




40553 


01613 


37 


01716 


01706 


LOCATE T (IN PART I) 




40554 


01614 


55 


01637 


10033 


TX2 33 — HQ) 




40555 


01615 


37 


01743 


01734 


TYPE T 




40556 


01616 


45 


00000 


01557 


RETURN 




40557 


01617 


00 


00000 


00000 






40560 


01620 


00 


00000 


00000 


PART ! 




40561 


01621 


00 


00000 


00001 


TYPING INDEX 




40562 


01622 


00 


00000 


00000 






40563 


01623 


00 


00000 


00006 






40564 


01624 


37 


37373 


74042 


T 




40565 


01625 


35 


35353 


63636 


STORAGE 




40566 


01626 


35 


35353 


53535 






40567 


01627 


34 


34343 


43434 






40570 


01630 


33 


33~33 


33333 




1 


40571 


01631 


32 


32323 


23232 






1 


40572 


01632 


31 


31313 


13131 




a* 
1— 1 


40573 


01633 


30 


30303 


03030 






40574 


01634 


25 


2 e >252 


52525 




Oh 


40575 


01635 


20 


20202 


02020 
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40576 


01636 


14 


14141 


41414 






4057? 


01637 


00 


00000 


00000 


T 




40600 


01640 


11 


01774 


00044 


RESET TEST INDEX* $ = V, # ■ 




40601 


(01641 


11 


30000 


20000 


*(§,) — > (A) 




40602 


01642 


47 


01643 


01650 


$,=0? 




40603 


01643 


23 


30000 


30000 


NO: EXP (AX) f - EXP(S)-»(eXP V 2 ) 




40604 


01644 


21 


01641 


00037 


SET FOP M(? x ) 




40605 


01645 


21 


01643 


01775 


SET FOR EXP(AX^-EXP(S A ) 




40606 


01646 


41 


01776 


01641J 


ALL EXPONENTS STORED 




40607 


01647 


56 


30000 


01655 


SKIP f=0 TEST 




40610 


01650 


55 


01643 


10025 


YES $,-0 : SET 




40611 


01651 


16 


10000 


01652 


L(EXP V x ) 




40612 


01652 


11 


01765 


30000 


64, — >(EXP VJ 




40613 


01653 


45 


00000 


01644 


RETURN TO STORE EXPONENTS 




40614 


01654 


00 


00000 


00000 


FIND SMALLEST EXPONENT 




40615 


[57655 


21 


01661 


00037 


SET FOR EXP(V 27 ) 




40616 


01656 


41 


01777 


01660 


TESTED ALL NUMBERS? 




40617 


01657 


45 


00000 


01664 


YES: JUMP 




40620 


01660 


11 


30000 


20000 


NO.'EXPfVi,)— »(A) 




40621 


01661 


42 


30000 


01655 


EXP (V 2| )< EXP (V 2J )?YjES: TEST E! 




40622 


01662 


15 


01661 


01660 


NO a EXP(V 2i WL exp(v 2 ,) 




40623 


01663 


45 


00000 


01655] 


RETURN TO TEST EXP(V 12 ) 




40624 


01664 


15 


01660 


01665 


STORE 




40625 


01665 


11 


30000 


00012 


D 




40626 


01666 


56 


30000 


01667 


DUMMY 




40627 


01667 


41 


00024 


01701 


READY TO TYPE? 


1— » 


40630 


01670 


11 


01621 


00024 


YESt RESET TYPING INDEX 


1 

1 


40631 


01671 


61 


00000 


01757 


C.R. 




0^ 


40632 


01672 


55 


00047 


10033 


ITERATION INDEXX2 33 — »(o) 


I— t 


40633 


01673 


37 


01743 


01735 


TYPE WITHOUT SPACE 


cu 


40634 


01674 


55 


00012 


10033 


D X2 33 -»(Q) 




40635 


01675 


37 


01743 


01734 


TYPE WITH SPACE 



AX — V, 
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40636 


01676 


56 


30000 


01677 


DUMMY^ (EX IT) 




40637 


01677 


11 


00007 


20000 


LAST ITERATION SWITCH — >(A) 




40640 


01700 


46 


40442 


01701 


LAST ITERATI0N?JUMP TO PART I 




40641 


01701 


23 


10000 


10000 


NO: — »(Q) 




40642 


01702 


11 


00012 


20000 


— >(A) 




40643 


01703 


56 


10000 


01704 


STOP TO CHANGE T IK Q 




40644 


01704 


11 


10000 


20000 






40643 


01705 


47 


01744 


01706 


T CHANGED? 




40646 


01706 


11 


00004 


20000 


NO : E --*(A) 




40647 


01707 


73 


01623 


00011 


STORE E-R/6^ R — »(A) 




40650 


01710 


71 


20000 


01733 


-6R — >(A) 




40651 


01711 


35 


01714 


01714 


SET SHtFT 




40652 


01712 


55 


00011 


00017 


E-R/6X2 ,y -^(Q) 




40653 


01713 


21 


01714 


10000 


SET ADDRESS OF T 




40654 


01714 


55 


01624 


10044 


f c X2° — »fQ) 




40655 


01715 


51 


01772 


01637 


STORE T 




4 0656 


01716 


56 


30000 


01717 


DUMMY 




40657 


01717 


11 


00012 


20000 


D — MA) 




40660 


01720 


42 


01637 


00222 


D < T ? RETURN TO ITERATE 




40661 


01721 


11 


01621 


20000 


NO'.TYPING INDEX — »(A) 




40662 


01722 


43 


00024 


01724 


(A)— TEMP INDEX? 




40663 


01723 


37 


01676 


01671 


NO: JUMP TO TYPE 




4 0664 


01724 


13 


00007 


00007 


YES: SET LAST ITERATION SWITCH 




40665 


01725 


75 


30000 


01727 


X 




40666 


01726 


11 


30000 


30000 


— * v, 




40667 


01727 


23 


00046 


20000 


TEST INDEX =* 




40670 


017|0 


23 


00024 


20000 


TYPE INDEX=0 




40671 


01731 


23 


00044 


20000 


ORTHOG INDEX~0 


•— 1 
1 


40672 


01732 


56 


30000 


00201 


RETURN TO ITERATE 


1 

O 


40673 


01733 


77 


77777 


77771 


-6 


O 


40674 


01734 


61 


00000 


01771 


SPACE 




40675 


01735 


11 


00041 


00010 


SET INDEX 
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40676 


[01736 


55 


10000 


00003 






40677 


01737 


51 


01773 


20000 






40700 


01740 


35 


01760 


01741 






40701 


01741 


30 


00000 


00000 






40702 


01742 


41 


00010 


01736| 


TYPE 




40703 


01743 


45 


00000 


30000 


EXIT 




40704 


01744 


11 


10000 


01637 


YES T CHANGED: STORE NEW T 


40705 


01745 


55 


10000 


00033 


TYPE 




40706 


01746 


37 


01743 


01734 


T=ACCURACY 




40707 


01747 


11 


00004 


20000 


E — >(A) 




40710 


01750 


73 


01623 


00013 


STORE E~R/6* R — > A 




40711 


01751 


71 


20(K>0 


01623 


6R 




40712 


01752 


35 


01755 


01755 


SET SHIFT 




40713 


01753 


16 


01755 


40426 


SET 




40714 


01754 


21 


40427 


00013 


I (T) 




40715 


01755 


55 


40433 


20000 


77X2 tR — » Q 




40716 


01756 


-45 


00000 


40426 






40717 


01757 


00 


00000 


00045 


C»R» 




40720 


01760 


61 


00000 


01761 


TYPE 




40721 


01761 


00 


00000 


00037 







40722 


01762 


00 


00000 


00052 


1 




40723 


01763 


00 


00000 


00074 


2 




40724 


01764 


00 


ocooo 


00070 


3 




40725 


01765 


00 


00000 


00064 


4 




40726 


01766 


00 


00000 


00062 


5 




^ 40727 




01767 


00 


00000 


00066 


6 




C 40730 
1 


01770 


00 


00000 


00072 


7 




^ 40731 

g 

S 40732 

1— 1 


01771 


00 


00000 


00004 


SPACE 




01772 


00 


00000 


00077 






^ 40733 


01773 


00 


0000c 


00007 






^ 40734 


01774 


00 


ocnoo 


00001 


TEST INDEX 




40735 


01775 


00 


00C02 


nrj002 
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40736 


01776 


00 


00000 


00000 


N-l 






40737 


01777 


00 


00000 


00000 


N-l 






40740 


00210 


00 


00000 


oocoo 


ORTHOGONAL IZAT ION 






4C741 


00211 


11 


00317 


20000 


S»R. 






40742 


00212 


42 


00004 


00310 


E > 37? PUT YY AT END OF 


ES 




40743 


00213 


11 


00305 


00200 


NO • RESET 0RTH0G INDEX 






40744 


00214 


11 


00004 


00312 


STORE E 






40745 


00215 


23 


00312 


00042 


STORE E-l 






40746 


00216 


75 


20000 


00220 


O 






40747 


00217 


23 


30000 


20000 


-* V , 






40750 


(00220 


75 


30000 


00222 


I EIGENVECTORS 






40751 


00221 


11 


30000 


30000 


MD — » ES 






40752 


00222 


11 


00306 


($3313 


SET INDEX = L-l 






40753 


00223 


15 


00023 


00244 


STORE L (Y) 






40754 


00224 


15 


00023 


00165 


SET INNER PRODUCT S.R. 






40755 


|00225 


56 


30001 


00226 


DUMMY 






40756 


00226 


37 


00177 


00156 


INNER PRODUCT X#Y' 






40757 


00227 


11 


00033 


00025 


FIRST ELEMENT 






40760 


00230 


h 


00034 


00026 


OP 1 






4 0761 


00231 


75 


30002 


00233 


Y» Y' 






40762 


00232 


11 


00322 


00027 


— >OP 2 






40763 


00233 


37 


00051 


00054 


DIV« XY' /Y' Y' ^K 






40764 


00234 


11 


00031 


00310 


STORE 






40765 


00235 


11 


00032 


00311 


"l 






40766 


00236 


15 


00022 


00251 


STORE 






40767 


00237 


16 


00022 


00254 


L(V 2 ) 




i— t 


40770 


00240 


11 


00002 


00314 


SET INDEX - N-l 




1 

1 


4 0771 


[00241 


13 


00310 


00025 


-K« 






s 


40772 


00242 


11 


00311 


00026 


— > OP 1 






40773 


00243 


75 


30002 


00245 


v,' 




>< 


40774 


00244 


11 


30000 


00027 


~) OP 2 
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40775 
40776 
40777 
41000 
41001 
41002 
41003 
41004 
41005 
41006 
41007 
41010 
41011 
41012 
41013 
41014 
41015 
41016 
41017 
41020 
41021 
41022 
41023 
41024 
41025 
^ 41026 
2 41027 
J 41030 
g 41031 
5 41032 
g 41033 
41034 



00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 
00262 
fo0263 
00264 
00265 
00266 
00267 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 
00301 
00302 
00303 
00304 



37 00051 
11 00031 
11 00 032 
75 30002 
11 30000 
37 00051 
75 30002 
11 00031 
21 00244 
21 00251 
21 00254 
41 00314 
21 00232 
41 00312 
75 30002 
11 30000 
75 30002 
11 30000 
37 00051 
75 30002 
11 00031 
21 00264 
21 00266 
21 00271 
41 00315 
56 30001 
75 30210 
11 40210 
41 00313 
21 00221 
56 30001 
45 00000 



00053 

00025 

00026 

00252 

00027 

00052 

00255 

30000 

00037 

00037 

00041 

0024l| 

00037 

00301 

00265 

00025 

00267 

00027 

00052 

00272 

30000 

00037 

00037 

00041 

00263| 

00277 

00210 

00210 

00225J 

00307 

00304 

002161 



MULT* 



OP 1 



ADO V, ~IC, Y 



OP 
t 



STORE 



I 1 



IN V. 



SET 
FOR 



Yl- k. y 



NEXT ELEMENT 
1 



SET FOR L(Y 2 Y 2 ) 
DONE E VECTORS ? 



YES: 



A0D 
X,+ 



AX -V, 



OP 1 



— } OP 2 
A X, 



SET 
FOR 

X FORMED 
DUMMY 
PART I! — > ES 

JUMP TO PART II 
L VECTORS DOME ? 
YES : SET FOR NEX L VECTORS 
DUMMY 
RETURN 
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41035 


00305 


00 


00000 


00005 


0RTH06 INDEX 






41036 


00306 


00 


00000 


00000 


L-l 






41037 


00307 


00 


00000 


00000 


2LNX2 15 






.41040 


00310 


23 


00306 


00042 


K STORAGE 


L-2 




41041 


00311 


23 


00307 


00006 




2LN-2N 




41042 


00312 


15 


00316 


00232 


INDEX = E-l 


STORE L ( Y, 




41043 


00313 


75 


30000 


00320 


INDEX = L-1 


ALL YY 




41044 


00314 


11 


41052 


02000 


INDEX = N-l 


— » ES 




41045 


00315 


00 


00000 


00000 


N-l 






41046 


00316 


00 


02000 


00000 


l(Y,V)ES 






41047 


00317 


00 


00000 


00037 


E > CONSTANT 






41050 


00320 


23 


00220 


00006 


REDUCE REPEAT 


COMMAND 




41051 


00321 


45 


00000 


00213 








41052 


00322 


00 


00000 


00000 


INNER PRODUCTS 




41053 


00323 


00 


00000 


00000 


OF EIGENVECTORS 




41054 


00324 


00 


00000 


00000 


STORAGE 






41055 


00325 


00 


00000 


00000 








41056 


00326 


00 


00000 


00000 








41057 


00327 


00 


00000 


00000 








41060 


00330 


00 


00-000 


00000 








41061 


00331 


00 


00000 


00000 








41062 


00332 


00 


00000 


00000 








41063 


00333 


00 


00000 


00000 








41064 


00334 


00 


00000 


00000 








41065 


00335 


00 


00000 


^ooco 








41066 


00336 


00 


00000 


00000 






f—4 


41067 


00337 


00 


00000 


00000 






1 
("Tv 


41070 


00340 


00 


00000 


00000 






1 

O 


41071 


00341 


00 


00000 


coooo 






1—1 


41072 


00342 


00 


00000 


00000 






X 


41073 


00343 


31 


46314 


63146 


mWs 




uu 


41074 


00344 


31 


46314 


63146 


= •8 





V) 
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41075 00345 31 46314 63146 



41076 




11 


40000 


00000 


STARTER. ST( 


3RE F, 


41077 




31 


76370 


00000 


SUM 




41100 




75 


20576 


41102 


MT AND 


C4KD RO 


41101 




32 


76371 


00000 


SUM 




41102 




75 


21300 


41104 






41103 




32 


40000 


00000 


MAIN PROGRAM 


41104 




11 


20000 


10000 


STORE CHECK 


SUM 


41105 




75 


30170 


01103 


STARTER — > 


ES 


41106 




11 


41110 


01010 


JUMP TO ES 




4110? 




00 


00000 


00000 






41110 


|oioio 


55 


10000 


00003 


TYPE 




41111 


01011 


51 


01773 


20000 






41112 


01012 


35 


01760 


01013 


CHECK 




41113 


0101s 


00 


3000O 


30000 






41114 


01014 


41 


01176 


OlOJLOj 


SUM 




41115 


01015 


23 


10000 


20000 


CLEAR Qt A 




41116 


01016 


56 


00000 


01017 


STOP TO SET 


N-HQ)i E 


41117 


01017 


75 


30421 


01021 


CONSTANTS* PART II 


41120 


01020 


11 


40001 


00001 


— » ES 




41121 


01021 


11 


10000 


00005 


STORE N 




41122 


01022 


11 


20000 


00003 


STORE E 




41123 


01023 


55 


loooo 


00001 


STORE 




^ 4U24 


01024 

3* 


11 


10000 


00001 


2N 




3 41125 

1— 1 


01025 


55 


10000 


00017 


STORE 




V 41126 

0^ 


01026 


11 


10000 


00006 


2NX2 ,y 




41127 


01027 


11 


00005 


00002 






2 41130 


01030 


23 


00002 


00042 


N-l — -K002) 




£ 41131 


01031 


21 


00022 


00001 


STORE 




" 41132 


01032 


21 


00022 


00006 


0/ a ) 





(A) 
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41133 


01033 


21 


00023 


00001 








41134 


01034 


21 


00023 


00006 


S^TORE 






41135 


01035 


21 


00023 


00001 








41136 


01036 


21 


00023 


00006 


L (A IN ES) 






41-137 


01037 


37 


00326 


00327 


SET UP AX 5*R. 






41140 


01040 


75 


30003 


01042 


H(fiVs 






41141 


01041 


11 


41073 


00410 


PART 11 END 






41142 


01042 


15 


00021 


00211 


STORE L (V,) 






41143 


01043 


16 


01164 


00211 


L(VMO) 






41144 


01044 


15 


00304 


00233 


l(ma> 






41145 


01045 


15 


01164 


00251 


L(VMD) 






41146 


01046 


16 


00022 


00251 


u(v a ) 






41147 


01047 


11 


00421 


10000 


MASK — » (Q) 






41150 


01050 


53 


00006 


00210 


SET 






41151 


01051 


53 


00006 


00250 


REPEAT 






41152 


01052 


56 


30000 


01053 


COMMANDS 






41153 


01053 


75 


30421 


01055 


STORE CONSTANTSt PART 


II 




41154 


01054 


11 


00001 


40001 


M0 






41155 


01055 


75 


30113 


01057 


0RTH0G S«R. 






41156 


01056 


11 


40740 


00210 


— -» ES 






41157 


01057 


54 


00406 


20071 


k — -Ma) 






41160 


01060 


73 


00001 


00306 


STORE L 






41161 


01061 


71 


00306 


00006 


STORE 






41162 


01062 


11 


20000 


00307 


2NLX 2 ,r 






41163 


01063 


23 


00316 


00006 


SET L(Y* Y) ES 




..0 


41164 


01064 


23 


00306 


00042 


STORE L-l 




>— 1 


41165 


01065 


11 


00421 


10000 


MASK — »(Q) 




1 

a* 

1 


41166 


01066 


53 


00006 


00216 


SET 









41167 


01067 


53 


00307 


00220 


REPEAT 






41170 


01070 


53 


00006 


00313 


COMMANDS 




X 
Dl, 


41171 


01071 


15 


00022 


00217 


STORE L (V 2 ) 






41172 


01072 


15 


01165 


00221 


L(EVMD) 
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I 

© 

o 



X 

a, 



41173 01073 16 00023 00221 L(W»S«) 

♦ 1174 0l674 15 00021 00264 t (V,) 

41173 01073 15 00022 00266 L (V^) 

41176 01076 16 00021 00271 t(V,) 

41177 01077 11 00002 00315 N-l 

41200 01100 23 00314 00001 STORE L (y',Y')aT end OF E5 

41201 01101 75 30113 01105 STORE 0RTH0G 

41202 01102 11 00210 40740 * MD 

41203 01103 75 30300 01010 PARTS Itltl 

41204 01104 11 40440 01500 — > ES 

41205 01103 11 00421 10000 MASK -»(q) 

41206 01106 53 00006 01520 SET 

41207 01107 53 00006 01522 REPEAT 

41210 OHIO 53 00006 01555 

41211 01111 53 00006 01725 COMMANDS 

41212 01112 56 30000 01113 

41213 01113 16 01166 01515 STORE L(E VALUES) 

41214 01114 15 01164 01521 L (VM0) 

41215 01115 16 00021 01521 L (V,) 

41216 01116 15 00021 01523 l(V,) 

41217 01117 16 01165 01523 U(E VECTOR REGION) 

41220 01120 15 01165 01556 l(l VECTOR REGION) 

41221 01121 16 00021 01556 L (V,) 

41222 01122 15 01166 01575 l(E VALUES) 

41223 01123 15 01165 01610 L (E VECTORS) 

41224 01124 16 00005 01611 N 

41225 01125 15 00021 01641 L ( M %) 

41226 01126 15 00022 01643 L (MAX) 

41227 01127 16 00021 01643 L (M ?,) 

41230 01130 21 01643 01167 L ( EXP AX) X2** L (tXPf) 

41231 01131 15 00022 01660 L^) 

41232 01132 15 00022 01661 l(V x ) 



9-451 
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41233 


01133 


21 


01660 


01170 


L(V Z )+1 




41234 


01134 


21 


01661 


01170 


l(v 2 )+i 




41235 


01135 


15 


01164 


01726 


l(vmd) 




41236 


01136 


16 


00021 


01726 


lCv.) 




41237 


01137 


11 


00002 


01776 


STORE N-l 




41240 


01140 


11 


00002 


01777 


STORE N-l 




41241 


01141 


56 


30000 


01142 


DUMMY 




41242 


01142 


11 


76537 


76536 


SET MT DUMP TO OMIT BACKING 




41243 


01143 


75 


30300 


01145 


PARTS It III 




41244 


01144 


11 


01500 


40440 


— > MD 




41245 


01145 


16 


01175 


40000 


SET MD START TO INTERMEDIATE START 




41246 


01146 


45 


20000 


01156 


MJ #2 TO SKIP l\-*E V REGION 




41247 


01147 


75 


17777 


01151 


ALL 




41250 


01150 


11 


01171 


54000 






41251 


01151 


75 


17465 


01153 


1'J 




41252 


01152 


11 


01171 


63777 






41253 


[oTl53 


11 


01172 


54001 






41254 


01154 


21 


01153 


00041 


— >EV REGION 




41255 


01155 


41 


0il73 


01153] 






41256 


01156 


11 


01174 


10000 






41257 


01157 


45 


30000 


01161 


MJ 3 ON TO AVOID DUMP 




41260 


01160 


37 


76510 


76500 


MT DUMP 




41261 


01161 


11 


01177 


76536 


RESET MT DUMP S«R* BACKING 




41262 


01162 


75 


30210 


76430 


JUMP TO DUMP EV^ ON MT 




41263 


01163 


11 


40210 


00210 


PART II— >ES 


"^ 


41264 


01164 


00 


41252 


41252 


L(VMD)X 2 ,S f L(VMD) 


1—1 


41265 


01165 


00 


54000 


54000 


LCE VECTOR REGION ON MD)X2'% LC ) 


s 
1 

o 


41266 


01166 


00 


53600 


53600 


L(E VALUES MD)X 2 ,r + L( } 


o 

i—4 


41267 


01167 


00 


00001 


00001 




r- 


41270 


01170 


00 


00001 


00000 




a, 


41271 


01171 


20 


00000 


00000 


1 




41272 


01172 


00 


00000 


00001 





9-452 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



SAN OlEGO CALIFORNIA 



CV-164 

page CN 007-59 

REPORT 2.M 1+91 

MODEL A11 

DATE 6/20/56 



41273 01173 

41274 01174 

41275 01175 

41276 01176 

41277 01177 



00 00000 07631 

00 00000 0000C 

00 00000 40440 

00 00000 00013 

67 01017 00000 



?S->EV INDEX 
I 

I (INTERMEDIATE START) 
CHECK SUM INDEX 
MT S«R. BACKING 



76365 
76366 
76367 

76370 
76371 
76372 
76373 
76374 
76375 
76376 
76377 
76400 
76401 
76402 
76403 
76404 
76405 
76406 
76407 
76410 
76411 
76412 
x 76413 

C-c 

76414 






I 
I 

o 
o 



11 76464 76463 EV MT RESTORE 

11 76567 76536 

45 00000 76420 

23 10000 20000 — * (Q) 

75 30030 76373 MT StR* 

11 76550 00001 — > ES 

37 00017 00001 RESTORE MD FROM MT 

71 40001 40003 2NE 

35 76474 20000 2NE + 400 $ — ">0O 

73 76475 76467 P =2NE +400 /1737 g 

21 10000 76465 P + 1 — KQ) 

71 10000 76473 (P + 1) x 37 g x 2 ,r — >(A) 

11 20000 76470 STORE 

75 30030 76404 MT 5.R# 

11 76550 00001 — > ES 

16 76471 00014 STORE L (EV's) 

13 76470 00020 SET MT BACKING 

11 76467 00030 P — > MT INDEX 

45 20000 76415 MJ #2 TO READ FROM MT #2 

37 00021 00001 MT #0 READ EV*5,BACK 

56 30000 76424 DUMMY 

75 31777 76365 RESTORE 

11 74001 00001 ES 

56 00000 01532 STOP., JUMP TO MS #2 STOP 
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SAN DIEGO CALIFORNIA 
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"3" 



I 

o 



X 

a, 



76A15 
76416 
76417 
76420 
76421 
76422 
76423 
76424 
7 6425 
76426 
76427 
76430 
(76431 
76432 
76433 
76434 
76435 
76436 
76437 
76440 
7 6441 
76442 
76443 
7 6444 
76445 
76446 
76447 
76450 
76451 
76432 
76453 
7 6454 



11 


76466 


10000 


J —}(Q) 


37 


00021 


00022 


MT#2 READ EV*5 BACK 


56 


30000 


76412 


RETURN TO RESTORE ES 


75 


30210 


76414 


PART II^ES 


11 


40210 


00210 


JUMP TO STOP 


75 


30200 


76434 


STORE YY$ 


11 


41052 


53400 


FOR MT DUMP 


75 


30200 


76412 


RESTORE 


11 


53400 


41052 


YY*5 


16 


76477 


41262 




45 


00000 


40000 




31 


76472 


00052 




61 


00000 


20000 


TYPE 


34 


20000 


00006 


MT 


47 


76431 


764221 




71 


40001 


40003 


2NE —►(A) 


35 


76474 


20000 


2NE + 400 8 ~»(A) 


73 


76475 


76467 


P~ 2NE + 400/ 1737 9 


21 


10000 


76465 


P + i — >(q) 


71 


10000 


76473 


(P + 1)X 37 8 X 2 ,T ->(A) 


11 


20000 


76470 


ST0«E 


75 


32000 


76444 


gs 


11 


00000 


74000 


— » ES IMAGE 


75 


30037 


76446 


MT S«R« 


11 


76511 


00001 


— » ES 


15 


76471 


00003 


SET L(EV»S) 


11 


76467 


00036 


STORE P 


15 


76470 


00026 


SET TAPE BACKING 


37 


00027 


00001 


MT DUMP ON ffO 


75 


30037 


76454 


MT S«R* 


11 


76511 


00001 


— > ES 


15 


76471 


00003 
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76455 


11 


76467 


00036 






7 6456 


15 


76470 


00026 






76457 


11 


76466 


10000 


2—»JCQ> 




76460 


37 


00027 


00030 


MT DUMP ON #2 




76461 


75 


31777 


76463 


RESTORE 




76462 


11 


74001 


00001 


ES 




76463 


37 


76463 


01541 


STOP* JUMP TO MS#2 STOP 




76464 


56 


00000 


01532 






76465 


00 


00000 


00001 






76466 


00 


20000 


00000 






76467 


00 


00000 


00000 


L (P) 




76470 


00 


00000 


00000 


L (BACKING PARAMETER) 




76471 


00 


53 400 


53400 


L CEV REGION^X 2 ,T + t(EV regio 




76472 


04 


04470 


70157 


FLEX WORD 




76473 


00 


00037 


00000 






76474 


00 


00000 


00400 






76475 


00 


00000 


01737 






76476 


67 


01017 


00000 






76477 


56 


00000 


76370 






76500 


75 


32000 


76502 


MT DUMP & RESTORE S.R« 




7 6501 


11 


00000 


74000 


STORE ES IMAGE 




76502 


75 


30037 


00001 


MT DUMP ROUTINE 




76503 


11 


76511 


00001 


— » ESt JUMP TO ROUTINE 




76504 


75 


30030 


00001 


MT RESTORE ROUTINE 




7 6505 


11 


76550 


00001 


— >ES» JUMP TO ROUTINE 


^0 


76506 


75 


31777 


76510 


RESTORE 


1— 1 
l 


76507 


11 


74001 


00001 


ES 


I 

O 
O 


76510 


56 


00000 


56510 


STOP 




76511 00001 


45 


10000 


00030 


MJ #1 TO SET MT UNIT 


X 


76512 f00002 


75 


31737 


00004 


MD BLOCK 
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76513 


00003 


11 


40000 


00041 




76514 


00004 


31 


00041 


00000 




76515 


00005 


75 


21736 


00OQ7 




76516 


00006 


32 


00042 


00000 




76517 


00007 


11 


20000 


00040 




76520 


00010 


65 


00037 


00040 




76521 


0^011 


67 


00037 


00000 




76522 


00012 


64 


00037 


00040 




76523 


00013 


31 


00041 


00000 




76524 


00014 


75 


21736 


00016 




76525 


00015 


32 


00042 


00000 




76526 


00016 


11 


20000 


20000 




^6527 


00017 


43 


00040 


00023 




76530 


00020 


61 


00000 


00025 




T6531 


00021 


67 


00037 


00000 




76532 


00022 


56 


30000 


00002 




76533 


0002 3 


21 


00003 


00035 




76534 


00024 


41 


00036 


00002) 




76535 


00025 


56 


30000 


00026 




76536 


00026 


67 


01017 


00000 




76537 


00027 


56 


30000 


76306 




76540 


00030 


53 


00034 


00021 




76541 


00031 


53 


00034 


00026 




7 6542 


00032 


75 


10003 


00002 




76543 


00033 


53 


00034 


00010 




76544 


00034 


00 


70000 


00000 


1— 1 


76545 


00035 


00 


01737 


^0000 


1 

O 

1 


76546 


00036 


00 


00000 


00020 


O 
O 


76547 


00037 


00 


00000 


00000 


X 

Qu 


76550 


00001 


45 


10000 


00022 




76551 


[00002 


64 


00037 


00040 



— } ES 

CHECK 

SUM 

MD BLOCK 
STORE CHECK SUM 
MD BLOCK — > MT 
BACK TAPE 36 BLOCKS 
MT ~ » ES MD BLOCK 
CHECK 

SUM 

MD BLOCK 
5T0RE CHECK SUM — »(a) 
CHECK SUMS = ? 
NO '-TYPE F 
BACK TAPE 

MS #3 RETURN TO TRY AGAIN 
SET FOR NEXT MD BLOCK 
TRANSFER COMPLETE = (21), TIMES 
MS#3 JUMP TO RETURN TAPE 
BACK TAPE TO ORIGIN 
MS#3 JUMP TO RESTORE E$ 
SET 

MT 

COMMANDS 



MJ #1 TO SET MT UNIT OTHER THAN 
READ MD BLOCK — > ES 
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76552 


00003 


31 


00041 


00000 


CHECK 




76553 


00004 


75 


21736 


00006 


SUM 




76554 


00005 


32 


00042 


00000 


MD 




76555 


00006 


11 


20000 


20000 


BLOCK 




76556 


00007 


43 


00040 


00013 


CHECK SUMS-? 




76557 


00010 


61 


ooopo 


C0007 


NO: TYPE G 




76560 


00011 


67 


00037 


00000 


BACK TAPE 




76561 


00012 


56 


30000 


00002 


MS #3 RETURN TO TRY AGAIN 




76562 


00013 


75 


31737 


00015 


YES.MD BLOCK 




76563 


00014 


11 


00041 


40000 


— » M0 




76564 


00015 


21 


00014 


00027 


SET FOR NEXTMD BLOCK 




76565 


00016 


41 


00030 


00002J 


TRANSFER COMPLETE 




76566 


C0017 


56 


30000 


00020 


MS #3 JUMP TO RETURN TAPE 




76567 


00020 


67 


01017 


00000 


BACK TAPE TO ORIGINE 




76570 


00021 


56 


30000 


76506 


MS #3 JUMP TO RESTORE ES 




76571 


00022 


53 


00026 


00002 


SET 




76572 


00023 


53 


00026 


00011 


TAPE 




76573 


00024 


53 


00026 


00020 


COMMANDS 




76574 


00025 


45 


00000 


00002 






76575 


00026 


00 


70000 


00000 






76576 


00027 


00 


00000 


01737 






76577 


00030 


00 


00000 


00020 






76600 




45 


00000 


00000 


CARO OUTPUT IC 004 




76601 




16 


76614 


76610 






7660^ 




45 


00000 


76606 






76603 




16 


76615 


76610 




r—4 


76604 




45 


00000 


76606 




1 


76605 




16 


76616 


76610 




1 


76606 




75 


31777 


76610 




l—l 


76607 




11 


00001 


74001 




X 

a. 


76610 




75 


30530 


00000 
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1 

o 
o 



X 

0- 



76611 
76612 
7.6613 
76614 
76615 
76616 
76617 
7662Q 
76621 
76622 
76623 
76624 
76625 
76626 
76627 
76630 
76631 
76632 
76633 
76634 
76435 
76636 
76637 
76640 
76641 
T6642 
76643 
76644 
76643 
7 6646 
76647 
76650 



11 


76620 


00526 


75 


31777 


00000 


11 


74001 


00^01 


00 


00000 


00744 


00 


00000 


00731 


00 


00000 


00733 


56 


00000 


76605 


00 


00000 


00037 


37 


77777 


77777 


00 


74000 


00000 


23 


00O01 


01262 


21 


00001 


01207 


21 


01262 


00536 


21 


01207 


00536 


45 


00000 


01203 


00 


00000 


00144 


00 


00000 


00310 


71 


00720 


30000 


15 


20000 


00566 


55 


20000 


00017 


15 


10000 


00620 


75 


20044 


00546 


23 


00731 


20000 


16 


00716 


00000 


31 


00723 


00001 


55 


10000 


00030 


52 


00721 


20000 


54 


20000 


00002 


44 


00554 


00554 


44 


00561 


00555 


17 


00OO0 


20000 


21 


00540 


00720 



9-458 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



JAN DIEGO CALIFORNIA 



CV-164 
page CN 007^ 

REPORT tU U91 
MODEL All 
DATE 6/2C/$6 



76651 
76652 
76653 
76654 
76655 
76656 
76657 
76660 
76661 
76662 
76663 
76664 
76665 
76666 
?666f 
76670 
76671 
t6672 
76673 
t66f4 

run 

T667& 
76677 

titoo 
?&7dl 

± rtnz 

S 76703 
7 76T04 
I Ht0$ 
5 76706 
B ?6?0? 
76710 



16 20000 
45 00000 
32 00677 

17 00000 
11 00730 
11 00714 
37 00560 
55 30000 
44 00641 
55 10000 
51 00725 
13 20000 
35 00715 
55 10000 
51 00725 
55 10000 
51 00725 
55 10000 
51 00725 
44 00655 
H 00667 
37 00676 
41 00672 
31 00665 
37 00706 
11 20000 
31 00713 
3? 00706 
16 00716 
31 00726 
73 10000 
31 00652 



00560 
30000 
00000 
20000 
00650 
00651 
00566 
00000 
00570 
00013 
20000 
20000 
00621 
00006 
00672 
00006 
00665 
00006 
00713 
00603 
00703 
00605 
00673 
00017 
00704 
00652 
00017 
00704 
00000 
00023 
10000 
00107 
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76711 


35 


loioo 


10000 




76712 


12 


30000 


00672 




76713 


00 


30000 


30000 




76714 


35 


10000 


20000 




76715 


73 


00652 


20000 




76716 


35 


20000 


00652 




76717 


37 


00676 


00626 




76720 


41 


00665 


00677 




76721 


16 


00717 


00676 




76722 


41 


00713 


00660 




76723 


41 


00713 


00677 




76724 


15 


00620 


00633 




76725 


55 


30000 


00000 




7 6726 


21 


00566 


00726 




76727 


21 


00620 


00726 




76730 


16 


00560 


00676 




76731 


13 


00720 


20000 




76732 


44 


00670 


00673 




76733 


37 


00560 


00570 




76734 


75 


2Q014 


00644 




76735 


55 


00761 


00010 




76736 


75 


30003 


00646 




76737 


11 


00710 


00650 




76740 


16 


00716 


00000 




76741 


43 


00711 


00556 




76742 


00 


30000 


30000 




76743 


00 


30000 


30000 


i— 1 
1 


76744 


00 


30000 


30000 




1 




76745 


75 


20003 


00646 






76746 


23 


00650 


00720 


X 

a, 


76747 


37 


00703 


00604 


76750 


43 


00665 


00667 
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76751 


45 


00000 b0673 




76752 


31 


00721 


00000 




76753 


35 


00651 


00664 




7 6754 


35 


00722 


00665 




76755 


55 


00650 


00000 




7 6756 


00 


30000 


30000 




76757 


00 


30000 


30000 




76760 


33 


00720 


00001 




76761 


37 


00703 


00670 




7 6762 


35 


00651 


00672 




76763 


55 


00650 


00000 




76764 


00 


30000 


30000 




76765 


55 


00650 


00043 




76766 


44 


00675 


00676 




76767 


21 


00651 


00727 




76770 


45 


00000 


30000 




76771 


31 


00652 


00002 




76772 


32 


00652 


00001 




76773 


11 


20000 


00652 




76774 


34 


20000 


00044 




76775* 


47 


00667 


30000 




76776 


15 


20000 


00706 




7 6777 


54 


00720 


10000 




77000 


75 


30000 


30000 




7.7001 


71 


20000 


00724 




77002 


77 


00000 


00774 





77003 


77 


10000 


00744 


r- 1 
1 


77004 


77 


10000 


00760 


s 
1 




77005 


00 


30000 


30000 





1— 1 


77006 


53 


10000 


00733 


X 


77007 


31 


00672 


00043 


a, 


77010 


00 


00000 


00540 
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77011 


00 


00000 


00631 




77012 


00 


00000 


00001 




77013 


00 


00000 


00003 




77014 


00 


00000 


00005 




77015 


00 


00000 


00010 




77016 


00 


00000 


00012 




77017 


00 


00000 


00077 




77020 


00 


00001 


00000 




77021 


00 


00000 


00014 




77022 


40 


00000 


O0000 




77023 


71 


01206 


30000 




77024 


15 


20000 


01045 




77625 


11 


10000 


01000 




77026 


11 


20000 


00775 




77027 


16 


00773 


76612 




77030 


47 


00756 


00746 




77031 


31 


76600 


00017 


. - 


77032 


35 


00741 


00741 




77033 


11 


74000 


01000 




77034 


21 


76600 


01213 




77035 


45 


00000 


00000 




77036 


16 


00774 


76612 




77037 


37 


00743 


00737 




77040' 


45 


00000 


00747 




77041 


16 


01252 


01075 


/•— * 


77042 


45 


00000 


01001 


^31 
sO 
l-H 


77043 


16 


00774 


76612 


1 


77044 


37 


00743 


00737 


1 

O 
O 


77045 


31 


76600 


00017 


.— 1 


77046 


35 


00755 


00755 


X 


77047 


11 


74000 


20000 




77050 


11 


20000 


10000 
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77051 


21 


76600 


01213 


77052 


51 


00772 


00776 


77053 


55 


10000 


00025 


77054 


51 


00772 


00777 


77055 


16 


01253 


01011 


77056 


16 


01254 


0117,7 


77057 


51 


01245 


20000 


77060 


47 


00771 


00767 


77061 


16 


01255 


01021 


7 7062 


16 


01252 


01075 


7 7063 


45 


00000 


01001 


77064 


00 


00000 


77777 


77065 


00 


00000 


76617 


77066 


00 


00000 


76600 


77067 


00 


ocooo 


oopoo 


77070 


00 


00000 


00000 


77071 


00 


00000 


00000 


77072 


00 


00000 


00000 


77073 


15 


01000 


01007 


77074 


11 


01010 


20000 


77075 


42 


01007 


01005 


77076 


21 


01000 


00530 


77077 


75 


10500 


01011 


77100 


11 


01212 


01300 


^ 77101 

\0 


00 


00000 


ooooo 


C 77102 


00 


02000 


00000 


T 77103 


45 


00000 


01216 


§ 77104 


71 


00776 


00777 


^ 77105 


11 


20000 


01256 


^ 77106 


34 


01213 


00020 


77107 


11 


20000 


01257 


77110 


11 


00776 


01261 
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77111 


35 


01261 


00020 




T7112 


11 


00777 


01262 




77113 


45 


00000 


01023 




77114 


11 


00776 


01262 




77115 


11 


01262 


01263 




77116 


21 


01262 


00536 




77117 


11 


01046 


00001 




77110 


11 


01**6 


20000 




77121 


35 


01246 


20000 




77122 


73 


01247 


20000 




77123 


36 


01213 


01260 




77124 


11 


01156 


20000 




77125 


73 


01247 


10000 




77126 


11 


20600 


01266 




T7127 


36 


01213 


0126T 




771*0 


35 


01242 


20000 




77131 


73 


0124* 


01170 




77132 


23 


01270 «int 




77133 


31 


01266 


M#|0 




77134 


11 


20000 OlfTt 




77135 


31 


01266 


00001 




77136 


36 01213 01*73 




77137 


45 


00000 01047 




77*40 


00 


00000 


00140 




77*41 


37 


00**0 


00*40 




77142 


20 


0OO00 


00000 


77143 


37 


00340 


00540 


1 
1 


77144 


20 


00000 


00000 


O, 

a- 


7 7145 


15 


01000 


01077 


1— 1 


77146 


15 


01000 


01107 




77147 


11 


00777 


01264 



9-464 



ANALYSIS 

PREPARED BY J. I. KlllO 

chicked by n. b* Parker 

REVISED BY 



C O N V A I R 



SAN DffGO 



GVVL65 

PAGE d<-01>*l 

REPORT NO. ZM U91 

MODEL. 
DATE 



in 

vO 



1 

o 

I 

o 
o 



X 

cu 



DBTERMIHAHT EVALUATION PACKAGE-flEAL-CA 010 

This is a package including Floating Point Real Arithmetic, CA 001 an 
interpretive routine for the real arithmetic and the real determinant 
evaluation routine* It is coded in standard form end can be assembly modified* 
If this package is assembled at 0100, it will evaluate an IX" N determinant 
for V* (22)ge(l6).Q« Each element of the determinant takes two (2) calls, and 
the entire determinant must be in BS« This routine requires a setting up for 
particular I, location of determinant in BS, and the location of the result in 
ES, and can not be used for any other I, determinant location, or result location 
unless the routine is restored to its original form and set up again. Any 
number of determinants may be evaluated for a given set-up* The determinant 
is destroyed during the evaluation* The elimination method is used* 

Steps of Elimination! 

1* 1— >(Det* value location)* 

2* _. 2 j»2, 3#"«# * (i^ *n m0 exchange row 1 with a row which 
11 x 

has a non-tero first element* and change the sign of (Det* 
1 

value location)* 



*' A ij- A ll 



Ai 



j» 1*2, 3»*«o* H« 



^. (Det. Talya- location) A u — *(*>•*• ▼ ftlu « location) 

5» Reduce the order of the resulting matrix by one by removing 

from consideration row one, and col* 1* 

* 

6* Repeat steps j*5 until order of the matrix is reduced to one* 
This routine uses 2 I cells (one row) immediately following the 
determinant as temporary storage* After it is set up, the last (1^6)j^(56)q 
cells of the routine are no longer used (from 13UO-li*l6)* The amount of 
storage needed for the determinant is given by 2(v3fg)* The elements of 
the matrix must be stored by rows* 
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The real arithmetio, or the real arithmetic and interpretive routine may 
be used Independent of the determinant routine by choosing the proper entrances. 

For instructions on the use of real arithmetic see CA 001. Ths interpretive 
routine performs the real arithmetic operations referring to a parameter word 
for the locations of the mantissas of the operands and result. 

REAL ARITHMETIC ENTRANCE 
Co 57 01001 01008 Add Ent 
Co 37 01001 01003 Mult Ent 
Co 37 01001 OlOOU Div Ent 

INTERPRETIVE R0UTIIB ENTRANCE 
Co 37 01001 PPPPP 



C 1 AAAA BBBB CCCC 
Where operations performed arei 
Add (A)/(B)-*(C) P*1K>6 
Subt (A)-(B)— *(C) PmiO 
Mult (A)*(B>— *(C) P*1112 
Dir (A)-r(B)— *(C) P*lllii 
Where AAAA-location of mantissa of 1st operand 
BBBB -location of mantissa of 2nd operand 
%CCC-location of mantissa of result 
DETERMINANT SET-UP ENTRANCE 

Co 37 01001 01153 

C DDDD RRRR NNNN 
Where DDDD- location of Det. in ES 

RRRR-location of result in ES 

NNNN order of the determinant (octal) 



rOMM ISIS'*^ 
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CBTERMINAHT EVALUATION ENTRAICB 

Co 37 01001 01155 

Permanent const* used i*0, *&# 77 # k5» 66, bh* 

Temp, storage O0O03-OOO32, (A), (Q) 

Commands for assembly modification hOJa (263).* 
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70723 


01000 


37 


76000 


76002 




70724 


01001 


45 


00000 


30000 




7 n 725 


01002 


45 


00000 


01027 




7 n 726 


01003 


4 5 


00000 


01073 




70727 


01004 


11 


00027 


20000 




7^730 


01005 


47 


01006 


01000 




7^731 


0100* 


11 


00025 


2^000 




70732 


01007 


47 


01014 


01010 




70733 


01010 


11 


00040 


00031 




70734 


01011 


11 


00040 


00032 




70735 


01012 


37 


01012 


01013 




70736 


01013 


45" 


00000 


01001 




70737 


01014 


54 


20000 


00042 




70740 


01015 


73 


00027 


10000 




7^74! 


^1016 


11 


Ofi'UO 


000?* 




70742 


01017 


74 


10000 


00025 




70743 


01020 


11 


20000 


00031 




70744 


01021 


23 


00026 


00030 




7C745 


01022 


11 


00025 


20000 




70746 


01023 


47 


01025 


01024 




70747 


01024 


21 


00026 


00074 




70750 


01025 


11 


00026 


00032 




70751 


01026 


45 


00000 


01012 




70752 


H1027 


11 


00025 


20000 




70753 


01030 


47 


01031 


01051 


i 


70754 


01031 


11 


00027 


20000 


70755 


01032 


47 


01036 


01033 


1 

O 


70756 


01033 


11 


00025 


00031 


O 
O 


70757 


01034 


11 


00026 


00032 




70760 


01035 


45 


00000 


01012 


70761 


01036 


11 


00026 


20000 



ALARM EXIT 
EXIT 

ADO ENTRANCE 

MULTIPLY ^TRANCE 
DIVIDE EHTRAMCF M (0° 2)-^(a) 

dividing by 0? 
no*. numerator — >(a) 
numerator = 0? 
yes; 

> ANSWER 

S.R# EXIT 

JUMP TO EXIT 

NO; M (NUMERATOR) X 2** — j> (A) 

QUOTIENT X 2 3V > (Q) 

>?■$ 

NORMALIZE IF(00025) = OR 71 
NORMALIZED MANTISSA STOPED 

DIFF OF EXP* >(00026) 

H >A 

H ~ 0? 

H — CORRECTED 

H = 71 EXP-^ 00032 

JUMP TO EXIT 

ADDITION M (OPERAND l) ->(A) 

M (OPERAND 1) - 0? 

NO: M (OPERAND 2) ~~>(A) 

M (OPERAND ?) = 0? 

yes; m (operand ij ->m (answer) 
e (operand 1) -^ e (answer) 
jump to exit 

i 

NO'. E (OPERAND i]_^(a) 
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70762 


01037 


36 


00030 


00032 


E(0P IJ MINUS E(0P2)- K ->( 




70763 


01040 


46 


01047 


01041 


K > Of 




70764 


01041 


11 


00025 


20000 


yes: exchange 




70765 


01042 


11 


00027 


00025 


OPERAND 




70766 


01043 


11 


20000 


00027 


ONE 




70767 


01044 


11 


00026 


20000 


AND 




70770 


01045 


11 


00030 


00260 






70771 


01046 


11 


20000 


00030 


TWO 




70772 


01047 


12 


00032 


20000 


no: jk| ->(a) 




70773 


01050 


42 


01072 


01054 


|K| < 35 7 




70774 


01051 


11 


00027 


00031 


|fC| > 35 OR M(0P/ 1=0 




70775 " 


0105? 


11 


00030 


00032 


(OP 2) —-^ANSWER 




70776 


01053 


45 


00000 


01012 


JUMP TO EXIT 




70777 


01054 


16 


20000 


01055 


|K| < 35? SET SHIFT OF 5 *IT 




71000 


01055 


54 


00027 


30000 


M(0P2jX P* >(AJ 




71001 


01056 


35 


00025 


20000 


M(0P2|X 2* + MtO*l) -*(a) 




71002 


01057 


U 


00040 


00032 


-^(0*032) 




71003 


01060 


74 


20000 


000*2 


NORMALISE M (ANS)^ h-»(00032) 




71004 


01061 


11 


20000 


00031 


m Cans) -> (000 31) 




71005 


01062 


47 


01064 


01063 


M(ANS) - ? 




71006 


01063 


13 


00032 


00026 


yes: -M-H00026) 




71007 


01064 


11 


00032 


20000 


NO: H->(A) 




71010 


01065 


42 


01071 


01067 


H < 38? 




71011 


01066 


23 


00026 


00077 


NO'. E tOPl)-32 -> (00026J 


10 


71012 


01067 


21 


00032 


00026 


yes: E(0P1) PLUS H (PR H-72) 


sO 

I— 1 


71013 


01070 


45 


00000 


01012 


JUMP TO EXIT 


1 



1 


71014 


01071 


00 


00000 


00*46 


DEC 38 





71015 


01072 


00 


00000 


00*43 


DEC 35 


h- 


71016 


01073 


71 


00025 


00027 


MULT M(OPl)X M(0P 2)->(A) 


a. 


71017 


01074 


ii 


00040 


00025 


0— >^00«25) 



9-469 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



Byi J. I. Ellis 

Checked byi D. B. Parker 



SAN OIEOO CALIFORNIA 



C V-165 

PAGE G»-0ll-4 

REPORT ZM 1+91 

MODEL 

DATE 2-87-56 





71020 


01075 


74 


20000 


00025 


NORMALIZE M (ANS)- 34 


OR 35— * H 




71021 


01076 


11 


20000 


00031 


MfANSJ— >(0003l) 






71022 


01077 


47 


01102 


01100 


M (ANS) =0? 






71023 


01100 


11 


00040 


00032 


YES; — F(ANS) 






71024 


01101 


45 


00000 


01012 


JUMP TO EXIT 






71025 


0110? 


23 


00025 


01072 


NO: H-35— > (00025) - 


°* -1 




71026 


01103 


21 


00026 


00030 


E C0P1) PLUS E^OP 2)- 


■HA)*(00026) 




71027 


01104 


35 


00025 


00032 


E (ANS) -*{p0032) 






71030 


01105 


45 


00,000 


01012 


JUMP TO EXIT 






71031 


01106 


16 


01147 


01134~) 


AD£ 






71032 


01107 


45 


00000 


01115) 


ENTRANCE 






71033 


01110 


16 


01151 


011340 


SUBTRACT 






71034 


01111 


45 


00000 


OUI5) 


ENTRANCE 






71035 


01112 


16 


01150 


01134) 


MULTIPLY 






71Q36 


01113 


45 


60000 


01115) 


ENTRANCE 






71037 


01114 


}f> 


01146 


01134 


DIVIDE ENTRANCE 






71040 


01115 


31 


01001 


00017 


SET 






71041 


01116 


15 


20000 


01117 


PARAMETER 






71042 


01117 


11 


00000 


01152 


LOCATION 






71043 


01120 


55 


011*4 


10003 


SET 






71044 


01121 


53 


01152 


01136 


L (?) 






71045 


01122 


55 


01152 


00033 


SET 




' 


71046 


01123 


55 


01145 


10003 


I (xj 






71047 


01124 


53 


01152 


01131 






1 


71050 


01125 


54 


01152 


00014 


SET 




o 
i 

o 


71051 


01126 


53 


01152 


01133 


LlY) 




© 


71052 


01127 


21 


01001 


00074 


UP EXIT LOG 






71053 


01130 


75 


30002 


01132 


X -^ 




cu 


71054 


01131 


11 


00000 


00025 


(OP 1^ 






71055 


01132 


75 


30002 


01134 


Y-> 
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10 

>D 



l 

O 

I 

o 
o 
o 



X 

a, 



71056 
71057 
71060 
71061 

71062 
71063 
71064 
71065 
71066 
71067 
71070 
71071 
71072 
71071 
71074 
71073 
71076 
71077 
71100 
71101 
71102 
71103 
71104 
71105 
71106 
71107 
71110 
71111 
71112 
71113 



01133 
01134 
01135 
01136 
01137 
01140 
01141 
01142 
01143 
01144 
01145 
01146 
01147 
01150 
01151 

0115? 
01153 
01154 
01155 
01156 
01157 
01160 
01161 
01162 
01163 
01164 
01165 
01166 
01167 

01170 



11 00000 
37 01012 
75 30002 
11 00031 
37 01137 
45 00000 
13 00027 
37 01012 
45 00000 
70 00000 
00 00777 
00 00000 
00 00000 
00 00000 
00 00000 
00 00000 
45 00000 
15 01405 
15 01323 
15 01323 
11 01322 
11 01306 
11 01307 
11 01321 
11 00066 
11 00074 
11 01302 
U 01314 
75 30006 
11 0130? 



00027 
00000 
01137 
00000 
01140 
01001 
00027 
01002 
01135 
00777 
70000 
01004 
01002 
01003 
01141 

01303 

01115 

0tl?4 

01177 

01225 

0124? 

01244 

01255- 

00003 

00004 

01337 

01336 

0117] 

013?5 



fOP ?) 

REAL ARITH* JUMP 
ANSWER 

S.R. EXIT 

JUMP TO EXIT 

- (00027)->, (00027) 

JUMP TO SUB 

JUMP TO STORE (ANS)^ EXIT 

MASK 

MASK 



SET VP 5» R.» ENTPY 
SET PARAMETER L0C 
SET L(All)X 2'P* (01174) 
SET L(A111?'2'^>(011?7) 
SET L(A1? All Al?^ 
SET L(A1? 



SET iL(A2? 
SET l(j* 
l-» 

(Til 
STORE -2X2*V 
STORE 2(N-l) 
STORE C0PYS 
2N X. ->'* 



A?l 

T2 

All 



T?) 

A?2) 

A??) 



M 
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71114 


01171 


M 


on?* omi 


N-l 




71115 


01172 


11 


01305 01331 


INDEX r N-2 




71116 


01173 


11 


01327 01334 


INDEX - N-l 




Till? 


01174 


11 


00000 20000 


(AU)-* A 




7x120 


01175 


47 


01217 01166 


A - 0? 




71121 


01176 


75 


30000 01200 


YES'- ROW 1 




711,22 


01177 


11 


00000 00000 


— * tTEMP ROW) 




7X123 


01200 


V* 


01177 01205 


STORE 




71124 


01201 


21 


01205 01326 


L(R0W 2) 




71125 


01202 


55 


01177 20025 


STORE 




71126 


01203 


16 


10000 0120? 


U (R0WX) 




71127 


01204 


75 


30000 01206 


ROW 2 




71X30 


01205 


11 


00000 00000 


— > ROW 1 




71131 


01206 


55 


01205 20025 


STORE 




71132 


01207 


16 


10000 01211 


t(R0W 2) 




71X33 


01210 


75 


30000 01212 


ROW 1 (TEMP ROW) 




71X34 


01211 


11 


00000 00000 


— > ROW 2 




7m* 


01212 


13 


00003 00003 


tTxH^frii 




7X136 


01213 


21 


01126 01303 


2NX2'*** r 2NX2° 




71137 


0X214 


41 


01334 01174 


TEST NEW All 




71140 


01215 


75 


10002 01277 


COL 1=0 




7X141 


01216 


11 


00040 00005 


0-* |0E7J JUMP TO EXIT 




71142 


01217 


11 


01303 61326 


COU zr RESTORE CONSTANT 




71143 


01220 


23 


01327 0007r 


INDEX - I 


10 


71144 


01221 


21 


01177 01303 


SET FOR 


W 


71145 


01222 


21 


01174 01312 


NEXT ROW 


1 
i 


71146 


01223 


11 


01330 01334 


SET fNDfX ~ N-l 


O 
O 


71147 


01224 


37 


01137 01X14 






71150 


01225 


00 


00000 


A12/A11 > (A) 




71151 


01226 


?\ 


01223 01302 


SET FOR A13 
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IT) 



l 
1 



X 

0- 



71152 
71153 
71154 

71155 
71156 
71157 

71160 
71161 
71162 
71163 
71164 
71165 
71166 
71167 
71170 
71171 
71172 
71173 
71174 
71175 
71176 
71177 
71200 
71201 
71202 
71203 
71204 
71205 
71206 
71207 



01227 

01230 
01231 

0123? 
01233 
01234 
01235 
01236 
01237 
01240 
01241 
01242 
01243 
01244 
01245 
01246 
01247 
01250 
01251 
01252 
01253 
01254 
01255 
01256 
01257 
01260 
01261 
01262 
01263 
01264 



41 01334 
11 01330 
11 01330 
31 01242 
11 01324 
53 20000 
11 00000 
47 01241 
21 01244 
45 00000 
37 0113? 
00 00000 
37 01137 
00 00000 
21 01242 
21 01244 
41 01335 
23 01*42 
21 01244 
21 01242 
41 01134 
3? 01137 
00 00000 
23 01330 
23 01336 
21 01337 
21 012.55 
21 01331 
11 01331 
21 01332 



01224 
01334 
01335 

00003 

10000 

01235 

20000 

01237 

0131? 

01252 

01112 

00 * 

OHIO 

00 #* 

0U01 

01302 

01241 

01336 

01337 

01310 

01231 

01112 

00074 
0130! 
01302 
01311 
01315 
01242 
01320 



R/All 

SET INDEXrN -2 

SET INDEXCN-2 

SET 

L ( A21) 

(A21^A ) 
(A21)r 0? 

YESi SET FOR NEXT ROW 
JUMP TO SKIP ROW 

no; X 

A12 X A21-> T 



A22-(A22 A21)- 
SET FOR All 
SET FOR A23 
0-»l COL 



A23 



1ST COL It OtO 
X 
(?) (All)-* T 
INDEX -1 

4(M+lJX^ U? /L 
4 • % X % 4 ' 2 /a > 4 
SET FOR A22 
SET 

PARAMETERS 



9-473 



CONVAIR - DIVISION OF GENERAL DYNAMICS CORP. 



Byt J. H. ELLIS 

Checked byi D. B. Parker 



SAN OICGO CALIFORNIA 



CV-165 

page ^K-on-ia 

REPORT ZM tl.91 

MODEL 

DATE 2-27-56 






1 

o 

I 

o 
o 
o 



X 

Qu 



71210 

71211 

71212 
71213 
71214 
71215 
71216 
7121-7 
71220 
71221 
71222 
71223 
71224 
71225 
71226 
71227 
71230 
71231 
71232 
71233 
71234 
71235 
71236 
71237 
71240 
71241 
71242 
71243 
71244 
71245 



01265 
01266 
01267 
01270 
01271 
01272 
01273 
01274 
01275 
01276 
01277 
01300 
01301 
01302 
01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
0131S 
C1314 
01315 
01316 
01317 
01320 
01321 
01322 



11 01332 

?1 013*5 
21 01225 
41 01333 
11 01255 
37 01137 

00 00000 
15 01406 
15 01406 
75 30002 
11 00003 
00 00000 
00 02000 
00 02000 
31 01001 
15 20000 
11 00000 
21 01001 
11 01410 
51 01416 
U 01153 
23 01304 
36 00074 
71 01300 
11 20000 
55 01310 
11 10000 
35 01300 
5 4 20000 
11 ?0000 



01244 
0130? 
01325 
01173 
01273 
01112 

01115 
0X1*7 
0X001 
00000 
20000 
00000 
00009 
00017 
01305 
01416 
00074 
10000 
01153 
01304 
00074 
01305 
01153 
01310 
10003 
01303 
01311 
00003 
0X31^ 



det reduced \ 
yes: 

X 

T— >|DE7| 

RESET INT.S.R : 

STORE 

|DET| <A EXIT 



s r set up ek't 
set(l) para^fte" 
parameter->(t) 
exit plus 1 

MASK— ^ (0 ) 

store n 

STORE 

N-l 

STORE N-2 
STORE 

STORE 

2N - 2 
STORE 2(N+l) • 2'' 2 ' 
STORE 
2 (f! + .1) ' 7 



t > 
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71246 


01323 


11 


01153 


01313 


STORE 




71247 


01324 


21 


01313 


00074 


N -h 1 




71250 


01325 


71 


01301 


01153 


STORE 




71251 


01326 


11 


70000 


01314 


2NX ?* y 




71252 


01327 


15 


0140% 


01177 


set s n 




71253 


01330 


35 


01301 


0131? 


STORE 2 (N-fl) • 2** 




71254 


01331 


11 


01311 


01S16 


STORE 




71255 


01332 


21 


01316 


01302 


2X2*% 2 (N t" l) * 2- V 2 




71256 


01333 


21 


01315 


0I3U 


STORE 2("f/ 2% 2(N+1) 




71257 


01334 


71 


00041 


01153 


STORE 




71260 


01335 


35 


01314 


01317 


2NX 2*^ 2N 




71261 


01336 


35 


01302 


01320 


STORE 2(N+1)2*£ *lN tfl 




71262 


01337 


23 


01314 


01301 


STORE 2(NM/. 2*^ 




7126? 


01*40 


11 


01412 


10000 


MASK— >(o ) 




71264 


01341 


11 


01414 


01306 


STORE L (T2) 




71265 


01342 


11 


01414 


01307 


STORE L (T2) 




71266 


01343 


53 


01416 


01306 


STORE 




71267 


01344 


53 


01416 


01307 


All 




71270 


01345 


55 


.01416 


00030 






71271 


01346 


11 


01411 


10000 


MASK — > 




7127? 


01347 


53 


01416 


01306 


STORE L (All) *»2 ; * 




71273 


01350 


11 


01415 


01321 


STORE L (Tl)VX t In) 




71274 


C1351 


53 


01416 


01321 


STORE l(AH)'2^ 




71275 


01352 


11 


01410 


10000 


MASK— > (0 ) 




71276 


01353 


5 3 


01416 


01277 


STORE t(hET|j 


■—I 


71277 


01354 


5 5 


01416 


00030 




1 

a* 
1 


71300 


01355 


11 


01410 


10000 


MASK — *(q) 




0- 


71301 


01356 


11 


01306 


0137? 




1— i 


71302 


01357 


53 


01416 


01322 


STORE 


X 

a. 


71303 


01360 


53 


01416 


01307 


L{a1\\ 



J± 
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71304 


01361 


5 5 


01416 


00017 




71305 


01362 


11 


01407 


10000 




713 06 


01363 


M 


01416 


01??* 




71307 


01364 


21 


01322 


01302 




71310 


01365 


21 


01306 


01310 




71311 


013 66 


21 


01306 


01301 




71312 


01367 


21 


01307 


01320 




71313 


01370 


11 


01413 


1O000 




71314 


01371 


53 


01303 


01176 




71315 


01372 


53 


01303 


01204 




71316 


01373 


53 


01303 


01210 




71317 


013 74 


15 


01323 


01211 




71320 


01375 


71 


01303 


01153 




71321 


01376 


35 


01211 


01211 




71322 


01377 


55 


01211 


200?5 




71323 


^1400 


16 


10000 


01177 




71324 


01401 


11 


01404 


01153 




71325 


01402 


11 


01407 


01324 




71326 


01403 


45 


00000 


01001 




71327 


01404 


AS 


oonno 


01154 




71330 


01405 


00 


01137 


00000 




71331 


01406 


00 


01001 


00000 




71332 


f>1407 


00 


07777 


00000 




71333 


01410 


00 


00000 


0T777 


1— 1 


71334 


01411 


00 


00777 


70000 


0* 
1 


71335 


01412 


77 


77000 


00000 





a* 


71336 


01413 


00 


00777 


00000 


r- 


71337 


01414 


00 


00000 


70007 




71340 


01415 


00 


03000 


O0003 



MASK — > (Q) 

STORP L (All) I'** 

STORE L IA12 All A12 J 



STORE L (A12 A21 T2J 
STORE L (A22 T2 A22J 
MASK— > (0) 
SET 
REPEAT 
COMMANDS 
STORE L ^AllJ 

2N 3 - > A 

STORE L (T ROW) 2^ 



SET ENT JUMP 
STORE MASK 
JUMP TO EXIT 
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FOUR POINT LAGRANGE INTERPOLATION FOR BIVARLATB FUNCTIONS 
OR THEIR DERIVATIVES (FIXED POINT) 



I. DESCRIPTION i 

If from one to five quantities F n are each functions of two variables 
x and y and are given in the form of tabled values (not necessarily at 
equal distance points) J then this subroutine evaluates these functions or 
one of the first partial derivatives of these functions by interpolation* 
The nearest tabled values of x and y are first found. The subroutine 
uses tallies £~and /^to signify displacement in the x and y tables* 
Y ■ signifies the first four x values (xo» xi» X2, 23) • P * 
signifies the first four y values (y , y^. yg, y^). A sixteen point grid of 
function values corresponds to the selected values of x'a and y's. 
The Lagrange method for interpolation is used to evaluate the functions 
at the given point (x, y) for each F n . 

The subroutine is also set up to compute the partial derivatives of 
the functions by the use of control words which are specified as follows s 

04 4U00 00000 

00 000U U000 

00 00000 00000 compute F 

In order to eliminate scaling problems, the subroutine computes the 
partial derivatives times an "increment 1 * xl' (stored at the same scale 
factor as the function). The coder must divide this by A (which is 
stored in cell 00001 with the same sealing as the independent variable 
involved). 

The subroutine uses a normalization process to achieve full accuracy 
without overflow. Unless the point x. y lies outside the region* no over- 
flow can occur* 



compute <t£ a, 
compute ±£ ■ A 
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If the point x, y lies within the same rectangle of the xy grid as 
the previously used point, nuch of the computation is not repeated with 
a saving of over half in time. 
II. SPECIFICATIONS x 

A ,- Locations and Storage 

1. The subroutine is stored in cells 01000 - 01246 using (2 4 7)£ or 
(1 6 7) 10 cells 

2. S S Temporaries used are cells 00001 to 00072 plus (2 ) ff cells 
for each dependent function. 

3. Cells to be modified* iH7) B - t^>7) w 
4* Constants not modified* none 

5. Information stored on drum for each set of tables t 

(a) Sntrance and exit oodet 5 ^slls 

(b) Parameters t 7 cells 

(c) Temporaries i (^Oio cells 

(d) Tables of the independent variables z and y and the 
dependent variables F n . 

fl ii. i ■■■ C ode, Parameters and Temporaries for each set of Sables i 

1. A starter p rogr a m followed 4ay current grid information far each 
set of from 1 to 5 functions Is stored in MD. This optional MD location 
is now referred to as cells d thru (d + 50) 

2. Ths subroutine is entered by the commands 
17 d (d ♦ _2) 

3» The information is ls££ out as follows t 
ADERESS 06RTEST EXPLANATION 



d 75 3 (p) (30000) 
d ♦ 1 21 00030 d ♦ 5 



) Save current data 
> P ■ (Uh ♦ K 



8 



(20), 
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CELL 
ADDRESS 

d ♦ 2 

d ♦ 3 

d ♦ U 

d ♦ 5 

d ♦ 6 

d ♦ 7 

d ♦ 10 

d ♦ 11 

d ♦ 12 

d ♦ 13 

d * U 

d ♦ 15 



75 
11 
45 
00 
00 
(77 
(00 
00 
00 
00 
00 
00 



CONTENT 
3 (p*l) (01002) ) 



d ♦ 4 

00000 

M 

N 

77776 

00000 



00027 

d 

00000 

00004 

77777) 

00000) 



EXPLANATION 

Load current data 

Return from subroutine 
M ■ number of z values 
N • number of y values 
)f (initial «r - -1) 



(k ♦ 1 at 2*9) 00000 K « number of dependent variables tabled 



d ♦ 20 
d ♦ 21 



00 



y 

h 2 



00000 
00000 
00000 

ooooc 



00000 J 



Ag * address of x table 

A_ » address of y table 

) 

) Ay a * address of 1° table 



) 



lemporary storage (current x 9 y and 
intermediate computations that are 
saved) 



d ♦ 50 

d ♦ 50 ♦ (20) 8 K 

C Table Format 

The x and y tables must be in mono tonic ascending order. The functions 
f are stored column vise each column corresponding to one value of X* 
D- Results t — The results are stored as follows j 

(00001) A when partial differentiation occurs 

(00002) P 1 ( x ,y) or **($$) ' or * '( W 

(00003) F 2 (x,y) or 4 '(££*) or &-(*&) 

g. 47W 
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NO 



I 

o 
I 

o 
© 



X 

a, 



(00004) 
(00005) 
(00006) 



Mx,y) or &' l3> 
F/(x,y) or A -J /> 
F 5 (x,y) or A-jFf 



or 



or 



or 



A 


■ <Lf* 


A 


ct£ 




^T 


A - 


°> F $ 



ro«M •«••<-% 
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BIVARIATE INTERPOLATION 





01000 


37 


76000 


76002 


ALARM EXIT 




01001 


45 


00000 


30000 


EXIT 




01002 


16 


00027 


01001 


SET UP EXIT 




01003 


11 


00032 


20000. 


COMPARE SIGMA 




01004 


46 


01030 


01005 


WITH ZERO 




01005 


11 


00024 


20000 


TEST FOR X 




01006 


42 


00045 


01023 


AT CENTER 




01007 


42 


00046 


01014 


OF GRID 




01010 


11 


00032 


20000 


. TEST FOR 




01011 


36 


00030 


20000 


UPPER 




01012 


35 


01230 


20000 


LIMIT OF 




01013 


46 


01030 


01014 


X TABLE 




01014 


11 


00025 


20000 


TEST FOR Y 




01015 


42 


00051 


01025 


AT CENTER 




01016 


42 


00052 


01055 


OF GRID 




01017 


11 


0^033 


20000 


TEST FOR 




01020 


36 


00031 


20000 


UPPER 




01021 


35 


01230 


20000 


LIMIT OF 




01022 


46 


01033 


01055 


. Y TABLE 




01023 


11. 


00032 


20000 


TEST FOR 




01024 


47 


01027 


01014 


ZERO SIGMA 




01025 


11 


00033 


20000 


TEST FOR 




01026 


47 


01032 


01055 


ZERO RHO 




01027 


23 


00032 


01233 


SIGMA MINUS TWO 




01030 


21 


00032 


01234 


SIGMA PLUS ONE 




01031 


45 


00000 


01034 


JUMP TO NEW VALUES 




01032 


23 


00033 


01233 


RHO MINUS TWO 


o 


01033 


21 


00033 


01234 


RHO PLUS ONE 


o 
a* 

r— 1 


01034 


37 


01055 


OHIO 


SET SWITCH AND JUMP 


X 


01035 


16 


01226 


01175 


SET UP FOR 


cu 


01036 


15 


01233 


01174 


DENOMINATOR 




01037 


37 


01167 


01155 


JUMP TO PQ SUBR 
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BIVARlATE INTERPOLATION 





01040 


16 


01227 


01175 


PARTIAL SWITCH TO MUM 




01041 


16 


01237 


01044 


ZERO SET TO J AND I 




01042 


16 


01240 


01046 


RIJ SET TO ROO 




01043 


15 


01237 


01044 


PI SET TO PO 




01044 


71 


30015 


30011 


QJ 




01045 


54 


20000 


00047 


TIMES 




01046 


11 


20000 


30054 


PI 




01047 


21 


01046 


01235 


IJ PLUS ONE 




01050 


43 


01241 


01055 


JUMP TO MUM AFTER LAST IJ 




01051 


21 


01044 


01234 


J PLUS ONE 




01052 


42 


01242 


01044 


TEST FOR LAST J 




01053 


21 


01044 


01235 


I PLUS ONE 




01054 


45 


00007 


01043 


INTO LOOP AGAIN 




01055 


37 


01055 


30000 


NUM DEN SWITCH 




01056 


15 


01054 


01174 


SET UP FOR NUM 




01057 


45 


00000 


01060 


JUMP TO PQ SUBR 




01060 


37 


01167 


01155 


SET PI TO PO 




^1061 


16 


01237 


01066 


SET T 




01062 


75 


10005 


01064 


PICK UP 




01063 


11 


01236 


00002 


ZERO TO SUMS 




01064 


15 


01240 


01067 


00 TO IJ 




01065 


15 


01237 


01066 


SET J 




01066 


71 


30015 


30011 


QJ TIMES PI 




01067 


73 


30054 


00007 


DIVIDED BY RIJ 


I 


01070 


11 


01246 


01076 




1 

O 


01071 


11 


01232 


00010 


SET UP N INDEX 


O 

1— 1 


01072 


15 


01067 


01074 


SET 




01073 


21 


01074 


01232 


FN-IJ 


CU 


01074 


71 


30074 


00007 


TIMES FN-IJ 




01075 


54 


20000 


00047 


PLUS 




H1076 


35 


30002 


30002 


FN SUM 




01077 


21 


01076 


01231 


UK PLUS ONE 
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BIVARIATE INTERPOLATION 



01100 


21 


00010 


01232 


N PLUS ONE 


01101 


42 


00034 


01073 


TEST FOR LAST N 


01102 


21 


01067 


01234 


RIJ PLUS ONE 


01103 


21 


01066 


01234 


QIJ PLUS ONE 


01104 


42 


01242 


01066 


5 COMPARED TO J 


01105 


21 


01066 


01235 


PI PLUS ONE 


01106 


42 


01243 


01065 


5 COMPARED TO I 


01107 


45 


00037 


01001 


OUT OF INTERPOLATION 


OHIO 


16 


01244 


01131 


SET COORD SWITCH 


01111 


15 


00035 


01133 


SET FIRST 


01112 


21 


01133 


00032 


X ADDRESS 


01113 


15 


00036 


01135 


SET FIRST 


01114 


21 


01135 


00033 


Y ADDRESS 


01115 


54 


00031 


10071 


COMPUTE 


01116 


16 


01240 


01140 


ADDRESS 


01117 


15 


01107 


01121 


OF 


01120 


11 


01232 


00003 


FIRST 


01121 


15 


30000 


01140 


ROW 


01122 


21 


01140 


01154 


AND 


01123 


72 


10000 


00032 


FIRST 


01124 


35 


00033 


01140 


FUNCTION 


01125 


45 


00000 


01126 


SET TRANSFERS 


01126 


35 


00031 


01142 


FOR 


011.27 


35 


00031 


01144 


F 


5 01130 


35 


00031 


01146 


PICK UPS 


Y 01131 


45 


00000 


30000 


COORD SWITCH 


£ 01132 


75 


30004 


01134 


PICK UP 


q\ 01133 


11 


30000 


00044 


x s 


x 01134 


75 


30004 


01136 


PICK UP 


* 01135 


11 


30000 


00050 


Y S 


01136 


37 


01131 


01137 


SWITCH 


C1137 


75 


30004 


*1141 


PICK UP FN S 
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BIVARIATE INTERPOLATION 





01140 


11 


30000 


00054 


FN 




01141 


75 


30004 


01143 


FUNCTION 




01142 


11 


30000 


00100 






01143 


75 


30004 


01145 


G 




01144 


11 


30000 


00104 


R 




01145 


75 


30004 


01147 


I 




01146 


11 


30000 


00110 


D 




01147 


45 


ooooo 


01150 






01150 


21 


01121 


01234 


ADDRESS F 




01151 


21 


00003 


01232 


PLUS ONE 




01152 


42 


00034 


01121 


REPEAT LOOP 




01153 


45 


00000 


01003 


JUMP TO BEGINNING 




01154 


00 


00000 


00020 


CONSTANT 




01155 


11 


00024 


00007 


W SET TO X 




01156 


75 


30004 


01160 


WN SET 




01157 


11 


00044 


00002 


TO XI 




01160 


37 


01225 


01170 


DO INNER LOOP 




01161 


75 


30004 


01163 


P S 




01162 


11 


00015 


00011 


IN PLACE 




01163 


11 


00025 


00007 


W SET TO Y 




01164 


75 


30004 


01166 


WN SET 




01165 


11 


00050 


00002 


TO YJ 




01166 


37 


01225 


01170 


JUMP TO INNER LOOP 




01167 


45 


ooooc 


30000 


EXIT SUBR 




01170 


11 


00005 


20000 


W3 MINUS WO 




01171 


36 


00002 


00010 


EQUALS DELTA 


1 


01172 


16 


01243 


01217 


PRESET 


o 


01173 


75 


10003 


01175 


COMPUTE 


o 
o 


01174 


11 


30000 


00021 


W MINUS WN 


X 


01175 


75 


30003 


01212 


OR WO MINUS WN 


0-i 


01176 


23 


00021 


00003 


GIVING FACTORS 




01177 


55 


00026 


00003 


CONTROL WORD TO Q 
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"1200 


4 4 


01201 


01212 


TEST FOR PARTIAL 




01201 


11 


00010 


00001 


STORE DELTA FOR PARTIAL 




01202 


54 


00021 


00041 


COMPUTE 




01203 


73 


00010 


00O21 


SUM OF 




01204 


54 


00022 


20041 


PRODUCTS 




012 05 


73 


00010 


10000 


FOR 




01206 


71 


10000 


00023 


PARTIAL FACTOR 




01207 


72 


00021 


00022 


AND 




01210 


72 


10000 


00023 


NORMALIZE 




01211 


45 


00000 


01217 


JUMP TO STORE 




01212 


54 


00021- 


00041 


COMPUTE 




01213 


73 


00010 


20000 


TRIPLE 




012-14 


71 


20000 


00022 


PRODUCT 




01215 


73 


00010 


20000 


AND 




01216 


71 


20000 


00023 


NORMALIZE 




01217 


73 


00010 


30015 


STORE QJ 




01220 


11 


00002 


00006 


ROTATE 




01221 


75 


30004 


01223 


THE 




01222 


11 


00003 


00002 


WN 




01223 


>1 


01217 


01235 


J PLUS ONE 




01224 


42 


01245 


01173 


TEST FOR LAST J 




01225 


45 


00000 


30000 


EXIT INNER LOOP 


/-\ 


01226 


00 


00000 


01212 


C 


1—1 


012Z7 


00 


00000 


01177 





1 


01230 


00 


00004 


4000C 


N 


O 


01231 


00 


00001 


00001 


S 


s 

r-i 
t- 


01232 


00 


00020 


00000 


T 




°123 3 


An 


r>r>002 


o^ooo 


A 




01234 


00 


00001 


ooooo 


N 




01235 


00 


00000 


00001 


T 




01236 


00 


ooooo 


00*- 


$ 




n 1237 


°0 


oi ]_ 5 


00011 
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BIVARIATF INTERP0LATIO" 



01240 00 00054 00054 

01241 11 20000 00074 

01242 71 00021 "00000 

01243 71 00021 &0015 

01244 *0 H^OOO 01132 

01245 73 00010 00021 
0124ft 35 00002 00002 



CONSTANTS 
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c 
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I 



I— I 



X 

a, 



POOR POUT UGRABGK SnERFOLAfttV FOR lOTARIAflB 

Fractions oe thih ana? atito (rniD *oint) 



Io SPECIFICATIONS* 

STORAGE * The sub-routine Is stored in cells 01000 - 01305 and nay be 
relocated* SS working storage 00002 - 00363 is used. Tables of any size 
are normally on MD. 

TIK t Approx. 0.3 sec. minimum ♦ 0.15 sec* for each change in 64 point 
grid. 

MSTHOD i Third order interpolation is effected by the use of the Lagrange 
4 point interpolation formula for 3 variables. This passes a function 
through a 64 pt. cubic array or grid of points chosen from the xys space of 
the table. 

II. DESCRIPTION! 

If two quantities. F^ and Fg. are functions of three variables, x, y # % 
and their values are given in tabular form (not necessarily at equal 
intervals ) f this subroutine can evaluate F^ ana Fg or one of their partial 

derivatives as specified by a control word. The 64 pt. grid is first 

* 
selected so that the interpolated point (x, y. z) is as close to the center 

of the grid as possible. This grid is then used for interpolating F^ and 

?2 (° r specified partial derivative of same) in parallel. 

All factors in the Lagjrangian coefficients are normalised to values ^1 

to obviate overflow difficulties. If extrapolation is attempted too far 

outside of the outermost grid, a divide fault will occur. 

III. LOCATION AND STORAGE* 

The main sub-routine is coded to operate in cells 01000 - 01265* It uses 
cells 01266 - 01305 for constants and cells 00002 - 00363 in ES for 
temporaries. 

■ -tjqflrr 
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A starter program followed by current grid information for each set of 
two functions is stored in (333) 8 cells of MD. This optional MD location is 
now referred to as cells d thru d ♦ 332. Initial set up of d thru d ♦ 16 is 
as follows: 

(30000) 
d + 5 
01002 

00035 
d 

m m ■ no. of values in x table 
n n » no. of values in y table 

00004. JL ■ no. of values in Z table 



d 


75 


30326 


d ♦ 1 


11 


00036 


d ♦ 2 


75 


30327 


d ♦ 3 


11 


d ♦ 4 


d ♦ 4 


45 




d ♦ 5 


00 


00000 


d ♦ 6 


00 


00000 


d ♦ 7 


00 


2* 



d ♦ 10 77 77776 
d ♦ 11 
d ♦ 12 



77777 <r ■ index of current location in x table, 
initially - 1 

— /* • index of current location in y table, 
initially ■ 



- 
00 



'- ■■ — ■'■' O "T • index of current location in z table 

initially * 



d + 13 

d + 14 00 

d ♦ 15 00 

d ♦ 16 11 



Ax 

Air 



rmiM i»ia-4 



00000 A^* location of 1st x table value 

00000 Ay« location of 1st y table value 

00000 Ag* location of 1st a table value 

OOI64 Af» looation of 1st F^ table value 

Information in d ♦ 17 - d ♦ 332 is generated by the sub-routine. In order 

to minimise access time, the tables should be stored in the following sequences 

1. AH x values is ascending order 

2. All y values in ascending order 
3* All s values in ascending order 

4* All ?i and p 2 values alternate, F^x*, yj, s^), FjCxj, yj, s K ), - 
F lC*i» yj> z **!)» ^2(*i» yj* *k*l)> «tc. with i the major, J the 
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I 

o 

© 

o 



£ 



intermediate and k the minor ordering subscript. 

Coordinates of the point to be interpolated anj> a control word are 
entered: 

(00031) » X 

(00032) » Y 

(00033) « Z 

(00034.)" Control word. 
For computing F2 and F 2 , the control word » 00 0000000000 
For computing A • ^ and A ' y^ 1 the control word • 044440—— -0 
For computing ^ f^ and A |^ the control word* 000004444000 



3y 



5/ 



For computing a . 2£l and a . ^ the control word » 400000000444 

Entry to the subroutine is programmed: 37 d*2 d. 
RESULTS: 

(00002) A 



(in case of partial differentiation) 



(00003) 
(00004) 



F-, 



or 



or 






or 



or 



*•$■ 



or 
or 



A- 






r 2 - - ^r 

WHERE (00002) has the scaling of the independent variable 
(00003) has the scaling of the F^ 
(00004.) has the scaling of the F 2 

The main subroutine is coded in standard form from 01000 and can be 
assembly modified. 

Subroutine length (including constants) — (306)g - (198)^0 
ES Temporaries required — (362) 8 » (242)30 

Total ES working space (670) 8 » (440) 10 

No. of words for assembly mod. — (301)9- (193) 10 



romm i«ia-4 
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3 VARIABLE INTERPOLATION 





01000 


37 


76000 


76002 


ALARM EXIT 




01001 


45 


00000 


30000 


EXIT 




01002 


16 


00035 


01001 


SET UP EXIT 




01003 


11 


00041 


20000 


COMPARE SIGMA 




01004 


46 


01041 


01005 


WITH ZERO 




01005 


11 


00031 


20000 


TEST FOR X 




01006 


42 


00051 


01032 


AT CENTER 




01007 


42 


00052 


01014 


OF GRID 




01010 


33 


00036 


00017 


TEST FOR 




01011 


35 


00041 


20000 


UPPER 




01012 


35 


01266 


20000 


LIMIT OF 




01013 


46 


01041 


01014 


X TABLE 




01014 


11 


00032 


2000© 


TEST FOR Y 




01015 


42 


00055 


01034 


AT CENTER 




01016 


42 


00056 


01023 


OF GRID 




01017 


33 


00037 


00017 


TEST FOR 




01020 


35 


00042 


20000 


UPPER 




01021 


35 


01266 


200O0 


LIMIT OF 




01022 


46 


01044 


01023 


Y TABLE 




01023 


11 


00033 


20000 


TEST FOR I 




01024 


42 


00061 


01036 


AT CENTER 




01025 


42 


00062 


01077 


OF GRID 




01026 


11 


00043 


20000 


TEST FOR 


/*»* 


01027 


32 


01266 


00001 


UPPER 


(—1 


01030 


36 


00040 


20000 


LIMIT OF 


1 


01031 


46 


01047 


01077 


2 TABLE 


1 





01032 


11 


00041 


20000 


TEST FOR 


a- 


01033 


47 


01040 


01014 


ZERO SIGMA 


X 


01034 


11 


00042 


20000 


TEST FOR 




01035 


47 


01043 


01023 


ZERO RHO 




01036 


11 


00043 


20000 


TEST FOR 




01037 


47 


01046 


01077 


ZERO TAU 
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01040 


23 


00041 


01303 


SIGMA MINUS TWO 




01041 


21 


00041 


01304 


SIGMA PLUS ONE 




01042 


45 


00000 


01050 


JUMP TO NEW VALUES 




01043 


23 


00042 


01303 


RHO MINUS TWO 




01044 


21 


00042 


01304 


RHO PLUS ONE 




01045 


45 


00000 


01050 


JUMP TO NEW VALUES 




01046 


23 


00043 


01303 


TAU MINUS TWO 




01047 


21 


00043 


01304 


TAU PLUS ONE 




01050 


37 


01077 


01137 


SET SWITCH AND JUMP 




01051 


16 


01267 


01235 


SET UP FOR 




01052 


15 


01231 


01234 


DENOMINATOR 




01053 


37 


01227 


01210 


JUMP TO PQS SUBR 




01054 


16 


01275 


01235 


PARTIAL SWITCH TO NUM 




01055 


16 


01270 


01060 


PI SET TO PO 




01056 


16 


01271 


01066 


RIJK SET TO ROOO 




01057 


15 


01270 


01060 


QJ SET TO QO 




01060 


71 


30000 


30000 


QJ 




01061 


54 


20000 


00047 


TIMES 




01062 


11 


20000 


10000 


PI 




01063 


16 


01272 


01064 


SK SET TO SO 




01064 


71 


10000 


30000 


QJPI TIMES 




01065 


54 


20000 


00047 


SK EQUALS 




01066 


11 


20000 


30000 


RIJK 


•~N 


01067 


21 


01066 


01305 


UK PLUS ONE 


1—1 


01070 


43 


01273 


01077 


JUMP TO NUM AFTER LAST UK 


1 

s 


01071 


21 


01064 


01305 


K PLUS ONE 


1 





01072 


42 


01274 


01064 


TEST FOR LAST K 


1—1 


01073 


21 


01060 


01304 


J PLUS ONE 


X! 
0- 


01074 


42 


01275 


01060 


TEST FOR LAST J 




01075 


21 


01060 


01305 


I PLUS ONE 




01076 


45 


00000 


01057 


INTO LOOP AGAIN 




01077 


37 


01077 


30000 


NUM-DEN SWITCH 
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01100 


15 


01272 


01234 


SET UP FOR NUM 




01101 


37 


01227 


01207 


JUMP TO PQS SUBR 




01102 


16 


01270 


OHIO 


SET PI TO PO 




01103 


23 


00003 


20000 


ZERO TO 




01104 


11 


20000 


00004 


SUM CELLS 




01105 


16 


01273 


01116 


SET FI-IJK TO FI-000 




01106 


15 


01271 


01115 


SET RIJK TO ROOO 




01107 


15 


01270 


OHIO 


SET QJ TO QO 




OHIO 


71 


30000 


30000 


QJ 




01111 


54 


20000 


00046 


TIMES 




01112 


11 


20000 


00005 


PI 




01113 


16 


01272 


01114 


SET SK TO SO 




01114 


71 


00005 


30000 


QJPI TIMES SK 




01115 


73 


30000 


10000 


DIVIDE BY RIJK 




01116 


71 


10000 


30000 


TIMES Fl-IJK 




01117 


54 


20000 


00050 


PLUS 




01120 


35 


00003 


00003 


Fl SUM 




01121 


21 


01116 


01305 


1-IJK PLUS ONE 




01122 


11 


20000 


01123 


TO GIVE 2-IJK 




01123 


30 


30000 


30000 


TIMES F2-IJK 




01124 


54 


20000 


00050 


PLUS 




01125 


35 


00004 


00004 


F2 SUM 




01126 


21 


01116 


01305 


NEXT Fl 




01127 


43 


01276 


01001 


EXIT AFTER LAST F 


1 


01130 


21 


01115 


01304 


IJK PLUS ONE 


O 
1 

8 


01131 


21 


01114 


01305 


K PLUS ONE 


01132 


42 


01277 


01114 


TEST FOR LAST K 


X 


01133 


21 


OHIO 


01304 


J PLUS ONE 


cu 


01134 


42 


01275 


OHIO 


TEST FOR LAST J 




01135 


21 


OHIO 


01305 


I PLUS ONE 




01136 


45 


00000 


01107 


INTO LOOP AGAIN 




01137 


16 


01300 


01162 


SET COORD SWITCH 
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01140 


15 


00044 


01164 


SET FIRST 




01141 


21 


01164 


00041 


X ADDRESS 




01142 


15 


00045 


01166 


SET FIRST 




01143 


21 


01166 


00042 


Y ADDRESS 




01144 


15 


00046 


01170 


SET FIRST 




01145 


21 


01170 


00043 


2 ADDRESS 




01146 


11 


01266 


00006 


SET LAYER INDEX 




01147 


11 


00047 


01173 


COMPUTE 




01150 


54 


00040 


20070 


ADDRESS OF 




01151 


71 


20000 


00042 


FIRST FUNCTION 




01152 


35 


00043 


00010 


ON 




01153 


71 


10000 


00037 


FIRST 




01154 


71 


20000 


00041 


YZ 




01155 


32 


00010 


00001 


LAYER 




01156 


35 


01173 


01173 


FOR FIRST 




01157 


35 


00040 


01175 


SECOND 




01160 


35 


00040 


01177 


THIRD 




01161 


35 


00040 


01201 


FOURTH ROW 




01162 


45 


00000 


30000 


COORD SWITCH 




01163 


75 


30004 


01165 


PICK UP 




01164 


11 


30000 


00050 


X COORD 




01165 


75 


30004 


01167 


PICK UP 




01166 


11 


30000 


00054 


Y COORD 




01167 


75 


30004 


01171 


PICK UP 


i— i 


01170 


11 


30000 


00060 


2 COORD 


i 
1 


01171 


37 


01162 


01172 


SET COORD SWITCH 


8 


01172 


75 


30010 


01174 


PICK UP 


1— 1 


01173 


30 


30000 


30000 


FIRST ROW 


X! 

0-, 


01174 


75 


30010 


01176 


PICK UP 




01175 


30 


30000 


30000 


SECOND ROW 




01176 


75 


30010 


01200 


PICK UP 




01177 


30 


30000 


30000 


THIRD ROW 
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01200 


75 


50010 


01202 


PICK UP 




01201 


30 


30000 


30000 


FOURTH ROW 




01202 


23 


00006 


01304 


TEST FOR 




01203 


42 


01304 


01003 


LAST LAYER 




01204 


31 


10000 


00013 


SPACING TO 




01205 


32 


01305 


00005 


NEXT LAYER 




01206 


45 


00000 


01156 


INTO LOOP AGAIN 




01207 


11 


00031 


00010 


W SET TO X 




0121Q 


75 


30004 


01212 


WN SET TO 




01211 


11 


00050 


00003 


XI 




01212 


37 


01265 


01230 


JUMP TO INN£R LOOP 




01213 


75 


30004 


01215 


PI IN 




01214 


11 


00022 


00012 


PLACE 




01215 


11 


00032 


00010 


W $ET TQ Y 




01216 


75 


30004 


01220 


m SET 




01217 


11 


00054 


00003 


TO YJ 




01220 


37 


01265 


01230 


JUMP TO INNER LOOP 




01221 


75 


30004 


01223 


QJ IN 




01222 


11 


00022 


00016 


PLACE 




01223 


11 


00033 


00010 


W SET TO Z 




01224 


75 


30004 


01226 


WN SET 




01225 


11 


00060 


00003 


TO ZK 




01226 


37 


01265 


01230 


JUMP TO INNER LOOP 


1- 


01227 


45 


00000 


30000 


EXIT PQS SUB 


NO 

r— 1 

^m0> 


01230 


11 


00006 


20000 


W3 MINUS WO 


1 
1 


01231 


36 


00003 


00011 


EQUALS pELTA 


o 
o 
a- 


01232 


16 


01272 


01257 


SET SK TO SO 


t—i 


01233 


75 


10003 


01235 


COMPUTE 




01234 


11 


30000 


00026 


W MINUS WN 




01235 


75 


30003 


30000 


OR WO MINUS WN 




01236 


23 


00026 


00004 


GIVING FACTORS 




01237 


55 


00034 


00003 


CONTROL WORD TO Q 
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01240 


44 


01241 


01252 


TEST WHETHER PARTIAL 




01241 


11 


00011 


00002 


STORE DELTA FOR PARTIAL 




01242 


54 


00026 


00041 


COMPUTE 




01243 


73 


00011 


00026 


SUM OF 




01244 


54 


00027 


20041 


PRODUCTS 




01245 


73 


00011 


10000 


FOR 




01246 


71 


10000 


00030 


PARTIAL FACTOR 




01247 


72 


00026 


00027 


AND 




01250 


72 


10000 


00030 


NORMALIZE 




01251 


45 


00000 


01257 


JUMP TO STORE 




01252 


54 


00026 


00041 


COMPUTE 




01253 


73 


00011 


10000 


TRIPLE 




01254 


71 


10000 


00027 


PRODUCT 




01255 


73 


00011 


10000 


AND 




01256 


71 


10000 


00030 


NORMALIZE 




01257 


73 


00011 


30000 


STORE SK 




01260 


11 


00003 


00007 


ROTATE 




01261 


75 


30004 


01263 


THE 




01262 


11 


00004 


00003 


WN 




01263 


21 


01257 


01305 


K PLUS ONE 




01264 


42 


01302 


01233 


TEST FOR LAST K 




01265 


45 


00000 


30000 


EXIT INNER LOOP 




01266 


00 


00004 


40000 


C 


/-S 


01267 


00 


00000 


01252 





I— 1 

1 


01270 


00 


00016 


00012 


N 


a* 
i 


01271 


00 


00064 


00064 


S 


o 
o 


01272 


00 


00010 


00022 


T 


X 

a. 


01273 


11 


20000 


00164 


A 


01274 


71 


10000 


00026 


N 




01275 


71 


00021 


01237 


T 




01276 


71 


10000 


00364 


S 




01277 


71 


00005 


00026 
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01300 00 00000 01163 

01301 11 00164 00164 

01302 73 00011 00026 

01303 00 00002 00000 

01304 00 00001 00000 

01305 00 00000 00 *1 






i 

o 

o 
o 
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X 

a. 
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ORGAHIZAIHMJ OF DEPARTMENT 66-10 



I, OEHKRAL OBJECTIVES 



CO 



o 



I 



k* Tho ultimate aim is to establish Department 66«10 as one of the leaving 
coxsputing and data reduction centers in this country. Ac a consequence, 
the Missile Systems Division will have et its disposal cos important and 
profitable asset in meeting its obligations, in increasing its reputation 
and in attracting business. Furthermore, the Lockheed Aircraft Corporation 
will be in an even better position t? meet its commitments, to increase 
its prcduct3.vity, to enhance its reputation and to better its eosrpetitive 
position* 

B» 

1. Department 66-10 shall perform all KS?) work falling within the scope 
of its activities • It will undertake the training of ICT personnel 
in t&e application of analytical and numerical irethods to their 
individual problems * 

2. Department 66*10 will continue to absorb the excess cf cnaq»xtiB£ && 
data reduction loads generated by other Lockheed divisions. Its 
Applied Matheasaties Staff will be available -50 help solve difficult 
co2cpntatio?ial problesan^ to" develop new simulation Esethods, to evaluate 
ccm$piiiing procedures used ia acoountiag and to investigate tbe'fea&±« 
bility of further 'iBoehaniis&t:lon of Jjoelsheed business problems * Tho 
Applied Mathematics Staff of Departicent 66«10 will be a source of 
mathematical consultant advice readily available to the entire corpora** 
tion. 

3* The extra cap&eiiy of DapartEteht 66~I0 required for peak loads trill be 
applied to outside business, 'fhio policy will avoid hasty tr -^anoion 
and S5iniBd:je overtime following the award of large contra-ctf. f>uteido 
business serves to smooth out fluctuations in internal tarn;. 
Department 66-10, to diversify I'iSD activities aad tc wains p. o.'it for 
the con©any„ 

The reputation of Depsrtamt 66-10 will be based on its perftoaenice and 
not on its size or jurisdiction. 3b have* satisfied customers is cats of 
the most important goals for Departn&at 66«10., 

D. For its survival, D&partns&nt 66*10 ira»st be able to recruit the ablest, 



o best prepared and isost dedicated young usea and women into its service. 

£ To attract and hold such people, the premise of a career or livelihood 

^ or of economic success i3 not enough* The Departnaant must also give them 

S esprit de corps » 
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II • (OTSRAL IBIHCIPLK3 AND COPOTOTK* PHOCKWWB9 

A. Everybody should have onJy one supervisor (except teebniail supervision 
co short projects). 

B. There should be reason-able opportunities for ts&vaacement. 
C. 

1 An members of tba depftrtmont are encouraged to write technical 
articles for ptfellcntlon by M8D or In scientific Journals. 

2. It is in the interest of the department that utcmbers attend sei^ntlfla 
meetings to further their own specialized knowledge in the interest of 
M5D and to loarn afrout new developments elsewhere. The number of 
employees from MSD attending any one given scientific meeting la 
restricted by M8D paMcy* 

3. It is in the Intercut of the department that its members try to 
farther their own education asad obtain advanced degress. 

D. Since frequent changes of ea^pBKsrt for DepartGtent 65*10 will be necessary, 
the department should be organised according to functions and not around 
existing or proposed eg^pmext; thus, no reorgcmizatlon will bo required 
when such eeuipmeut chan^ee ere mads* 

I. Decisions should be ma&o at tba lowest possible level by sup^rvisorji of 
the smallest organize tibial vnits solely affected by the d cision. 

F. The department sliould be the lowest wilt for administrative central from 
above. Within the department, the work should be broken down along 
functional lines* 

0* Bach organizational group should ^e provided with information it needs to 
measure its own performance, Kadi section should have the means of 
improving its own prcduotlon^line activities « 

H. Internal records and controls should be mlnlmlKedo Only records which 
ere of value ebould be taxpt. Internal control» should cost lesfi thrin 
- Via* tfaagr «re eucvMed to m*.. 

CM 

oj I. the work of the department should be divided into different levels . 

V Personnel with the bighatst technical ixuaXifica-tlons should work only at 

^ the highest level. lor exemple, in gt aeral, a Ph«D» mstbematician should 

© not code problems end an electronic engineer sliould not perform routine 



o 



?< 



maintenance. However, In emeirfjencias, it may be necessary for «ven highly 
qualified technical personnel temporarily to perform duties which ebould, 
E under normal circumstances, be assigned to personnel with Ictss technical 

background or experience « 
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J, Prospective customers should be "bothered as little as possible with paper 
work when they want Department 66-10 to help them solve one of their 
problems* Beyond stating explicitly what he wants Department 66-10 to 
do for him, a prospective customer should only need his own department's 
approval of a Department 66*10 estimate, but he should not be asked to 
participate in any more paper work* *!owever, a written problem statement 
by the prospective sponsor is sufficient authorization to start the problem 
immediately on an interim basis until the administrative problems have 
been resolved. 

K# During the move to the Bay Area, the department may be forced to depart 
temporarily from some of the general principles and operating procedures 
it vcnald like to follow. 

in. mah* raicsiOHs car SEPAKraasBT 66-10 

A. Obtain analytical or numerical solutions to problems as a service function. 
It is usually not sufficient that an answer to a problem is found, but it 
must be furnished on time. A considerable amount of mathematical effort 
by the department may be involved in the f ormulation of mathematical models 
of the selection of numerical procedures or the error analysis of some of 
these problems. 

B. Keuuce flight test and other experimental data, participate in the pre- 
flight systems checkout and the analysis of the reduced data* 

C. Cperate and, if necessary, maintain the computing equipment assigned to 
Department 66-10. 



D. 



Provide a mathematical consulting service by loaning members of the 
Applied J&thematics Staff to projects requiring the services of high- 
level mai&ematicians. 

Provide 0, consulting service on ner-x applications of digital and analog 
computers both for the mechanisation of scientific engineering and 
business problems and for the simulation of complex systems. 

Provide a consulting service to projects and other departments on data 
processing problems regarding instrumentation and data aegui3ition 
reqaireffleats. 



o- 



Conduct original research as a supporting function and directed toward 
possible application to the solution of scientific, engineering and business 
<> problems confronting Department 66-4.0, KSD or the Lockheed Corporation. 



o 
o 
o 



£ 



9-499 



9:23 
CKQAHTLATION CP BE2PAMMSBT 66-10 Page Four 

P» Mike rgocMMtf.iiiJiiti.cgio # 

1* *to aanagenent on policy natters affecting D epe r ta ant 66-10* 

2. $b nanageniftnt for new or improved confuting and data reduction eqaljamxl, 

6* Provide the 0«rvioea of ft pool of desk computers on a loan basis to short-, 
tern projects, 

H« Keep 19 to elate on new developments ia mathematics end the fields of 
computing, Instrumentation and data #roceeelag« 



CO 

a- 
1 

1 

O 

o 
a- 



a. 
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?. wmmxm of ihdgcvzdual ukbq 

A* The need of the depertnent exercises general administrative aid technical 
supervision* 



B. 



1. She Analysis and ftfttgramaing Section Is responsible for the programing 
and coding of all problems solved on the department's general purpose 
digital and analog computers* In addition, It la responsible for the 
s olu t i o n of all cor^utational problems sent to Department 66-10 with 
the exoeption of data redaction problems* 

2« e>o She 6ystems Development Group is responsible for setting up and 

Improving coding procedures and for improving the operation of the 
Analysis and Prcgraasaing Section. It does not take part in the 
solution of outside problems sent to Department 66-10, 

b. Through the Systems Development Group, the Analysis and Programming 
Section Is also responsible for keeping up to date on new coopera- 
tive coding efforts, such as PACT, SHARE, USB and others and for 
ccntributing to them as feasible* It should maintain liaison with 
programming grovps at other installations and maintain up-to-date 
descriptions of different coding procedures and a library of 
subroutines* 

3* She four programming groups should have coimietenee primarily in the 
solution of problems suitable for analog computation, trajectory 
problems, 31 near problems and data^handling problems. *Ehe Data 
Section has first priority on the services of the data-handling pro- 
gramming group* 

h* The Analog Analysis Group performs the following functions: 

a* Program problems for the analog computers. 

b. Operate and maintain the analog computers assigned to Department 66-10 ♦ 

oj c. Maintain genera}, supervision over physical equipment used in con- 
oj Junction with She analog computers of Department 66-10* 

i 

^ d* Maintain state«<if-tbe-ert knowledge and make reeommsaadations on 
o future facilities and equipment requirements. 

^ e* Cooperate in the acquisition, operation and maintenance of any 
£t aaalog-to-dlgltal and digital-to-analog conversion equipment whan 
such equipment Is intended for use with the analog computer* 
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5. Promising members of the programming groups should have an opportunity 
to contribute both to the work of the Systems Development Group and to 
the mathematical and numerical analysis of problems which would 
usually be carried out by members of the Applied Mathematics Staff « 
Each grov?p leader should maintain close liaison with the Applied 
Hatbemtics Staff and the Systems Development Group and, whenever 
possible, contribute to either one of these two activities. 

C. The Data Section is responsible for the following functions: 

1* The processing of data, as requested* 

2. Participation in instrumentation checkout operations and evaluation 
of the final laboratory calibrations. 

3« Production of a suoB&ry report describing the results of systems 

chedsout runs conducted prior to shipment of a vehicle to the test site. 

km ©so publication of a post«flight conference "quick look" flight data 
report and conducting the post-flight conference, as well as editing 
minutes of the post~flight conference, Including summary and conclusions 
drawn. 

5« The publication of the final flight test data report (when require 
covering all data reduced* 

60 Analysis of telemeter performance to keep instrumentation personnel 
informed of the performance of their equipment, including accuracy 
determinations. 

7« Act as consultants for future data acquisition requirements to all 
customers requiring this service. 

8. The maintenance of the flight d^ta file on all projects « 

9* 2fco operation and malnt<m@nee of all special purpose data-handling 
equipment assigned to the section* 

10. Maintain state*cf -the-ert knowledge and nsxke recommendations on future 
facilities end equipment requirements o 

CO 

c .\ In order to evaluate and Improve its own operating procedures, the Data 
^ Section will have a special account supporting several employees in the 
<JL Data Systems Devolopment Group for this purpose on a full-time basis 

d) outside of all production activities. 

o 
o 

r— I 

r- 

x 
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ORCWUHZATION OF DEPARTMENT 6b~±0 Page Eight 

S. The Operations Section is respor.si'ble for the fallowing functions! 

1« The scheduling, operation and, if neceosaxy, the roaintenance of the 

general purpose digital confuting equipment assigned to Department 66-10. 

2. The maintaining of machine recor&a and the preparation of machine 
performance and usage reports. 

3. Supervision of the macldne ercaa .\s well ce of key punching and desk 
computer services both within the department and for outside sponsors. 

K Coordination of the recos&tendations as to detailed, specifications for 
new general purpose digital confuting equipnent based on future needs* 

5* Acceptance tests on new. digital equipasnt< 

F. l&uibera of the Applied fctetafcaaatics Staff, in geaeral, spend at least half 
of their tine on probleias cent to Department 66«10 for solution on a service 
basis* The remaining tia» should he divided between the following functions: 

1. fiesearch in their own chosen?, field with proper approval. This type of 
research work must bo reacoinibl-r close to K3D applications and funds 
have to be available from the MBD general research fund for this purpose. 

2. It keeps up to date on new Eume3.*ieal metheds and mathematical procedures 
on digital or analog computers. The seeming of results from research 
In rathcflsatical models for physical, data r sanction and business 
problems as well as £ rc«a numerical methods 2nd error analyois for 

both digital and analog eomguters is indud sd in this function* 

3* Liaison with mthe&atical analysis groups at other confuting centers. 

k. Members of the Applied Mathematics Staff may be leaned to organisations 
outside of Deportment 66-10 to work on specific problems for t% specified 
length of tine. 



0. 



cm 



x 

a. 



1* Even though the Applied telematics Staff docs, in general, not require 
any teohnlcal supervision, its oi:se does lake it inoperative to have a 
representative who serves ae a senior staff aseraber for the Applied 
Mathematics Staff. 



^ 2. Members of the Applied Mathematics Staff ere available for consultation 
o en technical probleiBD by any meiaber of Department 6"6~10 without any 
r formalities • 



23 April 1556 
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DECIMAL 


PROGRAM START 






40000 


FRI-0 








40001 


Mt!-0 


INSPECT 






40002 


M1I-0 


INSERT 






40003 


MDp^O 








46004 


MDP-1 


TAP£ 






40005 


STT-0 








40O06 


TST-0 








40007 


CMP-0 








40008 
40O09 


FPP-0 


SNAP 






40010 


FPP-0 


SNIP 






40011 


SAM-0 








40012 


MDP-4 








40013 


MDP-1 


CARDS 






40014 


CRI-1 








40015 


COMMON EXIT 






40016 


COMMON EXIT 






40017 


RPH-0 


READ 






40018 


RPH-0 


PUNCH 






40019 
40020 
40021 
40022 
40023 


DEMONSTRATION 


ROUTINE 


40024 


DEMONSTRATION 


ROUTINE 


40025 


DEMONSTRATION 


ROUTINE 


40026 










40027 










40028 










40029 


LIBRARY TRANSFER 


TO M#T< 


► 40030 


MDP-3 








40031 


RESTORE ES 






40032 



OCTAL 



46001 
46602 
40003 
40004 
40005 
40006 
40007 
40010 
40011 
40012 
40013 
40014 
40015 
40016 
40017 
40020 
40021 
40022 
40023 
40024 
40025 
40026 
40027 
40030 
40031 
40032 
40033 
40034 
40035 
40036 
40037 
40040 



9-505 



9:24 

PAGE 1 OF 2 
REVISED 06-01-56 



THE RAMO-WOOLDRIDGE CORPORATION 
LOS ANGELES 45* CALIFORNIA 



UTILITY ROUTINE LIBRARY 
TABLE OF CONTENTS 



A DESCRIPTION OF THE LIBRARY ORGANIZATION 04-01-55 
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BOOTSTRAP PROCEDURE USING CARDS 05-01-56 

OCTAL-DECIMAL CONVERSION TABLES 

POOL OF FLEXOWRITER CODES 
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ATM-1 

CMP-0 
CPO-0 
CPO-1 
CPO-2 
CRI-1 
CRI-2 
CVF-0 

DEM-0 
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DIE-0 
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DIE-2 
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12-09-55 THE FERRANTI INPUT ROUTINE 

10-03-55 SIMPLIFIED FERRANTI INPUT FOR BOOTSTRAP 



*- HTO-0 07-25-55 



x 



INT-1 10-10-55 



DECIMAL OUTPUT ROUTINE FOR FLEXOWRITER AND PUNCH 
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LOG-2 08-10-55 FLOATING POINT NATURAL LOGARITHM ROUTINE 
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FLOATING POINT SINE-COSINE ROUTINE 

FLOATING POINT SINE-COSINE 

ARCSINE-ARCOSINE ROUTINE 

FLOATING POINT ARCSINE-ARCOSINE ROUTINE 

SQUARE ROOT ROUTINE 

STORAGE TO MAGNETIC TAPE TRANSFER 

ARCTANGENT ROUTINE 

FLOATING POINT ARCTANGENT ROUTINE 
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CUMULATIVE ERRATA 

Programming and Operating Conventions 

Paragraphs 6, 8, and 9 should be deleted. 

CMP-0 10/ /55 

Pages 8A and 10 dated k/ld/36 should be included. 

Page 8 - delete from " Subroutines " to end of page . 

Page 9 - delete first three lines . 

Page 9) paragraph two, and page 10, paragraph numbered k - should 
read "prints 'CMP-0' " and not "prints 'check sum fails'". 
CVF-0 H/lU/55 

Page 5> line 12 from the bottom should read "n = (50000b)" and not 
"n + 1 = (50000b)". 
DIE-0 7/26/55 

Page 4, last line should read: b = (~-)'n*2~ and not b = (~)«n'2 
EGN-0 5/1/56 

Page 8, line Ik should start "ojr the ERA paper tape reader) " 

Page 16 line 7 should start "if nsg^Q, 

EXP -3 8/10/55 
Co Page 1, drum assignment should read "63766 b through 64oM* b." 

CM 

Z FPP-0 5/25/56 

o Should include SNAP page 6 dated 5/IQ/56. 

o 

£ SNAP, page 5 > last sentence should read: "If it is desired to read 

x 

in less than four numbers per card, then the associated address field of the 

decimal number to be ignored must be left blank" . 

SNAP, page 6, first line below table should start "If the exponent or 

the mantissa " 
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SNAP Smapler trace, page 1, the last sentence of paragraph Id should he 
replaced "by: "Restoring the library from magnetic tape loads an all zero -word 
into cell 71777b. If this word is not changed, a complete trace of all SNAP 
commands is automatically performed." 
FRI-0 12/9/55 

Page k, following paragraph numbered 5> add "Note: If there is a 
sixth level punch in the second of two consecutive frames having seventh 
level punches the stop is bypassed. The check sum is cleared and the reading 
continues. This will still be an illegal combination which will halt an ERA 
photo-electric reader". 
HTO-0 7/25/55 

Page 1, drum assignment should read "6250^ b through 63037 b". 
MDP-2 12/9/55 

Page . .1, opposite TYPE add "obsolete, available on symbolic cards" 
Page 2, first sentence below the list of card column assignments 
should read: "Any card is omitted if each of the four words to be punched 
consists of 36 zeros or 36 ones, and in this event the next card produced carries 
a punch in the 12 row of column 9" • 
£ mF ~3 12/9/55 

CM 

& Page 2, line 12, reference to MDP-2 should read MDP-^. 



s 

^ Page 2, line Ik, should start "each card contains six cards". 

o 

5 SNI-1 9/12/55 

x 

Q- Page 2, under programming instructions add: "The ranges of the 

results are the principal values, defined as follows: 
- jt/2^arcsine 0-^jt/2 

O^arcosine 9-^jt " 
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SNI-2 9/12/55 

Page 2, under programming instructions add: "The ranges of the results 
are the principal values, defined as follows: 

- jt/2*<£arcsine Q-^ti/2 
Marcos ine 0-^it " 

TNI-1 8/10/55 

Page 2, under programming instructions add: "The range of the result 
is the principal value, defined as follows: 

- s/2*»arctangent x^jt/2 " 

URT-1 10/3/55 

Page 2 following paragraph six add "ES is cleared". 
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PSEUDO-RANDOM NUMBER GENERATOR SUBROUTINE 



by - Harold Dahlbeck 



The basic method used in this subroutine was described by D. H. Lehmer in 
The Annals of the Computation Laboratory of Harvard University, Volume XXVI, 
Proceedings of a Second Symposium of Large-Scale Digital Calculating Machinery 
Harvard University Press, Cambridge, Massachusetts, 1951* 

The method itself requires the following simple form to be used as the iteration 
formula : 



X i + 1 = CX i (mod p) 



i = 1, 2, 3, 



Although this method is considered to be quite optimal in guaranteeing both 
maximum randomness and greatest periodicity of the X^, there are considerable problems 
involved in the obtaining of c and p subject to the following conditions: 

1. p should be the largest prime number which can be contained in a register. 

2. c must be of the form R-*- when R is required to be a primitive root of p 
and 1 has to be relatively prime to p-1. In addition c should be as large 
as possible. 



The following two numbers satisfy the above conditions: 
_ c 13 _ 



p = 2 JJ - 31 = 34, 359, 738, 337 



c = 5- 



1, 220, 703, 125 



A subroutine for generating the Xjt is given below. The periodicity of the Xi 
will be p - 1 = 2-^ 2 - 32 = 34, 359, 738, 336. Any positive number may be used 
as a starting point for this series. 
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01000 
01001 
01002 

01775 
01776 
01777 



71 
73 
11 

37 
01 
00 



1103 Subroutine for Pseudo-Random Numbers 



01777 
01775 
20000 

77777 
10604 
00000 



01776 
10000 
01777 

777a 
71625 
00001 



&fr 



j t"j— > A 

(5 ±;J .R 1 ) mod p ) A 

A mod p ) R., 

235 _ 31 
5 J 
R i 
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A Linear Programming Routine for the 1103 Computer 

General Remarks t 

A working draft of a linear programming routine for the 1103 is now in 
operation* The routine finds a basic set of values of the variables in a 
linear form, which will maximize or minimize the value of that linear form, 
(hereafter called "profit function"), subject to a set of linear restraints. 
These restraints may be equations or inequalities, and are acceptable with 
or without slack variables* However, if slack variables are included, they 
should be clearly labelled as suchj if they are omitted, the sense of the 
inequalities must be indicated. 

The method followed is the Alternate Algorithm of the Revised Simplex 
Method of Dantzig, as described in Rand Corporation manual RM-1268, with 
certain modifications* Since zero suppression is used throughout, the size 
of the problem which can be handled by this program will depend upon the 
number of zeros In the original matrix of coefficients and in the columns 
stored for the inverse matrix in product form* In any case* the number of 
restraints cannot exceed 106, the number of Variables, including slack 
variables, must be less than 258, and the product of the two dimensions should 
not exceed about 15,000* 

The time required for solving a particular system depends upon the size 
of the matrix, the number of non-zero elements, and the number of Iterative 
cycles performed in reaching a solution* In general, the time will range from 
a few minutes for a small system to about 2J- hours for the largest system 
solvable by this program* High speed has been achieved by confining the cyclic 
program and vector storage to the rapid-access memory and the magnetic drum 
(hence the limitation on size of the system J* Magnetic tape units supply 
programs for input, computation, and output, and receive intermittent dumps 
of the entire contents of rapid-access storage and drum as protection against 
unforseen interruption, and to provide for output of results of previous cycles* 
The program may of course be modified to handle larger systems by using magnetic 
tape" storage during cyclic computations} however, this will considerably Increase 
production time on the 1103* Some actual computation times are as follows i 

Number of Number of Variables Number of Computation Total Time, Incl* 
ttfctaftlnts Including Slack Iterations Time Input and Output 



24 49 21 2 minutes 4*5 Minutes 

<T 26 37 33 3.3 " 6*2 " 

8 27 59 31 * 4 " 6.5 " 

% 63 88 59 11.7 " 15.6 " 

j£ The present program calls for Input data on punched paper tape in Flexowriter 
code* The matrix is read in by rows just as they appear on the matrix sheet, with 
the profit function as the first row, A detailed description of input format 
is attached* While the paper tape is being read Into the computer, the input program 
converts the decimal numbers to binary, assigns a slack variable of appropriate sign 
to each Inequation and scales the elements of each row according to the numerically 
largest coefficient in that row. The matrix is then transposed, and each column is 
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asfeigned a scaling based on the numerically largest element in that column* 
The program then packs each column vector by retaining only its non-zero 
elements in sequence, preceded by three code-words displaying the pattern of 
aero and non-zero elements in the column* Packed columns are then stored in 
sequence on the drum, and a directory is prepared which records the starting 
address and scaling of each column Tec tor* 

Artificial variables are assumed where needed, but their columns are not 
stored, and should not be included in the matrix* The input program prepares 
the redundant equation which serves to eliminate the artificial variables during 
the first phase of computation* 

Floating vector arithmetic is used for addition and scalar multiplication 
of two vectors and for multiplying a vector by a constant* This greatly reduces 
computation time as compared with floating point arithmetic* yet avoids the 
overflow problems and loss of significance which arise in fixed point arithmetic* 
Significance retained in final answers will depend* of course, upon the amount 
of computation necessary to reach the answers; results to date have been 
excellent, with all answers correct to at least five significant digits* 

The computation proceeds through two phases s Phase X eliminates artificial 
variables by maximizing the artificial variable in the redundant equation* When 
feasible solutions exist, computation then proceeds into phase XI, which maximizes 
(or minimizes) the profit function itself* Details of the method may be found in 
the Rand Corporation literature* 

The type of output will vary with the nature of the conclusions reached* 
In most cases, an optimum feasible solution will result; the values and identifying 
indices of the basic variables will be printed, as will the shadow prices, the 
back solution, and the quantities labelled delta-sub- j in the notation of RM-1268* 

The inverse matrix itself is stored in the convenient product form. Thus, at 
the end of the computational program, the inverse matrix as it would appear at the 
~ end of anv specified cycle is still available* Except for the inverse matrix, results 
w of previous cycles are not retained* If these are desired, the program provides for 
oj output after specified cycles* It is recommended that output be kept to a reasonable 
w minimum, to save computer time* 



i 

i 

o 
© In case an infinite solution is indicated, the output program will identify at 

least one variable which is unbounded* 



o^ 



q- If the original system contains incompatible restraints, computation will halt 
when this is recognized through an unfeasible maximum or minimum* At least one 
restraint will be identified by the presence of a non-zero artificial variable as 
being inconsistent with others in the system* 

In case of linear dependence among restraints, the program will proceed exactly 
' as in the case of an optimum feasible solution, except that one or more artificial 
variables will be listed in the final basic solution, with assigned values of zero* 
These serve to identify redundant restraints which may then be deleted by the analyst, 
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-3- 
though they do no harm other than to increase computation time. 

The linear program described above is presented as a working draft, rather 
than as a completed product* It will be expanded and adapted to the needs of 
customers as we become more familiar with these needs* As the result of experience 
gained in checking out and using the program, certain possibilities for improvement 
have become evident and will be incorporated in the program as soon as possible* 
One specific change contemplated In the present 1103 version is the addition of 
the facility for finding alternate solutions bj imposing increments upon specified 
quantities and continuing the computational cycle. This is recognized as highly 
desirable and will be added as soon as possible* 

Suggestions as to other services which might be incorporated in the linear 
program will be appreciated. We will of course be happy to answer any questions 
which might arise concerning the program* 

The 1103 program ie available in a slightly altered form for use on the 1103A. 
The only changes are in the addressing of the accumulator and quotient register, and in 
the references to magnetic tape; only 1024- words of core memory are used* Thus, running 
time on the 1103A with this program will be approximately the same as on the 1103* 
This time is governed to a large extent by the number of references to the magnetic 
drum* At present, the entire cyclic program, the floating vector subroutines, and the 
directory which lists vector storage locations, are kept on the drum because of limited 
space in the 1024- word rapid-access storage of the 1103* Portions of the program are 
then transferred from the drum to the core storage as needed. 

A complete rewriting of the Linear Programming Routine for the 1103A has been 
initiated* Since the 4096-word core memory provides space for everything except the 
vectors themselves, at least half of the drum references will be eliminated, which in 
turn will reduce computation times by an estimated 40 or 45 percent* 
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MODEL 
DATE 



IC004 



EXPLANATION 



70765 
70766 
70767 
70770 
70771 
70772 
70773 
70774 
70775 
70776 
70777 
71000 
71001 
71002 
71003 
71004 

71005 
71006 
71007 
71010 
71011 
71012 
71013 
Y 71014 
% 71015 
£ 71016 
*"" 71017 



a- 

CO 



cu 



71020 
71021 
71022 
71023 
71024 



01033 
01034 
01035 
01036 
01037 
01040, 
01041 
01042 
01043 
01044 
01045 
01046 
01047 
01050 
01051 
01052 
01053 
01054 
01055 
01056 
01057 
01060 
01061 
01062 
01063 
01064 
01065 
01066 
01067 
01070 
01071 
O1O72 



73 01247 
11 20000 
36 01213 

35 01242 
73 01242 
23 01270 
31 01266 
11 20000 
31 01266 

36 01213 
45 00000 
00 00000 

37 00540 
20 00000 
37 00540 
20 00000 
15 01000 
15 01000 
11 00777 
11 01250 
53 01251 
11 00537 
11 01260 
47 01072 
11 01271 
47 01065 
11 01250 
53 01271 
11 01270 
75 10002 
11 01267 
11 01246 



10000 

01266 

01267 

20000 

01270 

01213 

00020 

01271 

00001 

01272 

01047 

00140 

00540 

0000 

00540 

0000 

01077 

01107 

01264 

10000 

01076 

01207 

20000 

01063 

20000 

01072 

10000 

01076 

01254 

01075 

01252 

01252 



.15" 



R = REMAINDER >- ( A) 

STORE R 

STORE R-l 

R + 4 — ►- (A) 

STORE R + 4 DIVIDED BY 5 

STORE R+4 DIVIDED BY 5 MINUS 1 

STORE 

2R X 2' 
STORE 

2R-1 



POSITION 

CARD 
TO 

PUNCH 
SET INITIAL 

DATA ADDRESS 
SET COLUMN INDEX = M 

MASK >- (Q) 

SET BLOCK TRANSFER 
STORE 310 OCTAL 

INDEX = ? 

YES: 

R = 0? 

NO: MASK >-(Q) 

SET BLOCK TRANSFER 
SET CARD INDEX 
SET 

NUMBER INDICES 
NO: SET BLOCK BY COL. TRANSFER INDEX 
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